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14-Sep-1984 
MODULE INSMAIN ( . ! INSTALL Main Entry and Command processing 


' 
G ODE (EXTERNAL = GENERAL), 
STALLS 
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BEGIN 


! 
SRR RA AERA AAE AAR AAEA AAA AEAA AAA EEA AEERTEARHEEREE 


'# COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
!t ALL RIGHTS RESERVED. 


'* THIS SOFTWARE 4, FURNISHED UNDER A LICENSE AND MAY BE AND gt 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t® INCLUSION OF THe ABOVE gpd NOTICE. THIS SF TWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
- vhanereRatee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aRPORAT io. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'e4¢ 
FACILITY: Install 


: ABSTRACT: 

This module controls command parsing and processing. 
ENVIRONMENT : 

VAX/VMS operating system. 

; AUTHOR: Bob Grosso, June 1981 

Modified by: 

: v03-015 MSH0061 Michael S. Nervey 5~Jul- 1984 

: Add support for EXEONLY images. Also, don't carry old 
: PURGE context from a previous INSTALL action into a new 
CREATE command. 

: v03-014 MSHO060 te Harvey 3-Jul-1984 

: Partially back ont “nsn00 5 so that reasonable status 
values don’t cause the utility to exit. 

1 

1 


v03-013 MSHO05S7 Michael S. Harvey 27-Jun-1984 
Propagate /WRITEABLE vakeribute across REPLACE command 
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v04- 13-08-1382 Ob: gei he INSTAL.SRCJINSMAIN.B32;1 . aB 

3 38 28 } } when appropriate. 

: 60 60 1 V03-012 MSHO0SS Michael S. Harvey 30-May-1984 

; $6) 1: Don't infinitely loop when an error occurs trying to 

; ? aos : get a command Line. | 

: 64 064 1! vO3-011 MSHO0S2 Michael S$. Harvey 22-May-1984 | 

; & 0065 1! Prevent deleting wrong KFE by ensuring that the KFE 

; & 8008 1! pointer contents is correct for all cases when opening 

a 9067 13 the image file. | 

: 69 99 9 1: V03-010 MSH0048 Michael S$. Harvey 15-May-1984 

3 0 070 1! Prevent some SPRs by adding some common sense to the 

; a ita : status reporting for the REPLACE command. 

ees $078 1/ v03-009 MSH0031 Michael S. Harvey 12-Apr-1984 

oS =) 0074 1! Ensure that a known file installed /OPEN is completely 

; a oot? ; mapped by the retrieval pointers. 

: #77 0077 1! v03-008 MSH0025 Michael S$. Harvey 2-Apr-1984 

; ge ith : Homogenize error reporting to prevent confusion (SPRs). 

. 0080 1: v03-007 MSH0022 Michael S. Harvey 15-Mar-1984 

=. os 0081 1! Fully resolve device specifications by unconcealing 

gs 82 0082 1! the device. Eliminate middle directory brackets for 

2 a7 et : root directories. 

: 85 0085 1! V03-006 MSH0015 Michael S. Harvey 5-Mar-1984 

3 56 goe8 : } Be a bit more intelligent when displaying other errors. 

; «88 0088 1: v03-005 MSHO009 Michael S. Harvey 16-Feb-1984 

; 34 444 ; Don't report errors that DCLPARSE already reported. 

: 91 0091 1! v03-004 BLS0256 Benn Schreiber 27-Dec-1983 

; 0092 1! Allocate Listing buffer once here. Use util$report_io_error 

Gg . 0095 1! and util$getfilename. Convert KFD directory specs 

; 9 0094 1! to all have angle brackets (square brackets not multinational). 

3 4 sie4 : Make DELETE work even if file has been deleted. 

: 97 0097 1 V03-003 BLS0245 Benn Schreiber 27-0 t-1983 

; #498 0098 1! Correct error severity for INS$_FAIL message to be 

3 100 st44 ' } WARNING for /LIST and /DELETE. 

: 101 0191 1! v03-002 RPG0002 Bob Grosso 26-Aug-1983 

: 106 1 § 1! Add a condition handler to record most severe error. 

3 + Biz : Comment code more thoroughly. | 

: 105 0105 1! v03-001 RPGO001 Bob Grosso oy aug, 1963 | 

: 106 9196 +? Check for Writeable qualifier before opening file 

: 107 818 1! so that /WRITE works. 

: 108 108 1! Re-activate header residency so that /HEAD works. 

3: 109 3192 1! 

s 110 110 1 !- 
| 
| 
| 


<-_ 


STRSUPCASE, 
UTILSGETFILENAM 


EXTERNAL LITERAL 
INS$C_FAOBUFLEN, 
EXESC~SYSEFN; 


EXTERNAL 
INS$F AOOUTBU 


EXE$GQ_-KFE_LCKNAM, 
EXESGL_SYSTD_LOCK; 
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BIND 
INSSQ_LCKNAM = 
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INSMAIN 
- Declarations 
; ! 1 SSBTTL ‘Declarations’; 
4 1 ! 
5 ; Include files 
1 
3 ; LIBRARY ‘SYSS$LIBRARY:LIB'; 
0 1 os ROUTINE 
1 1 CLISDCL_PARSE, 
¢ 1 CLISDISPATCH, 
1 bts SERE SENT 
4 1 CLISGET VALUE, 
5 1 LBRSOUTPUT ° 
6 1 LIBSGET_FOREIGN, 
7 1 LIBSGET_INPUT, 
8 1 LIBSGET_VM 
9 01 LIBSPUT~OUTPUT, 
0 01 PRVSSETPRIV, 
| 01 STRSCOMPARE, 
01 TRSCONCAT, 
01 TRSCOPY_Dx, 
STRSPOSITION, 
sat bn 


F 
INSSFAOBUFDESC : $BBLOCK, 
CTL$GQ_PROCPRIV : SBBLOCK, 


i 


E, ; 
SYSSGETDVIW : ADDRESSING_MODE (GENERAL) 
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VAX/VMS system definitions 


Parse DCL command 
Dispatch to verb routines 
Check if entity present 
Get value from command Line 
print interactive help 
et command Line 
et subcommands 
Allocate virtual memory 
print hele text 
set privilege bits given ASCII string 
compare two strings 
concatenate strings 
Copy strings by descriptor 
Find a substring on the command Line 
truncate part of command Line 
Raise case of command Line 
Get descriptor of file 
3; ! Get Device Information 


Qualifier was explicitly negated 
Empty command Line f 
No qualifier permitted on command Line 
Invalid privilege name 

Privilege name not unique 


Size of output buffer : 
System event flag, used when locking 


Listing output buffer 
Descriptor of output buffer 
rivilege mask of user ; 
ame of lock for Known file entries 
System lock for KFE parent lock to 
avoid a trip down the CI on cluster systems 


SDESCRIPTOR (*INSTALLSINSLOCK"); 


P 
age ; 
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INSMAIN 16-Sep-1984 01:44:17 AX=11 Bliss-32 V4.0-742 Page 4| 
Vo2-000 Declarations 1ergeb 138s 93:38:58 INSTAL SRedingmatncasoes 9° (3) | 
; 163 161 1 | ; 
: 164 162 1 REQUIRE 'SRC$:INSPREFIX.REQ'; : 
; 165 04 REQUIRE ‘LIBS: INSDEF.R32'; | : 
3 163 64 1 EXTERNAL | ; 
3 198 65 } INSCMD; ! Tables describing the Install commands | : 
3 199 0 rs 1 EXTERNAL LITERAL : 
; iW 0368 1 INSS_DELETED, ' Previous Known File Entry deleted ; 
; \7¢ 0 4 1 INS$_EXISTS, ! Known File Entry siready exists : 
s 17 0370 1 INSS_FAIL ' Unable to <OPERATION> <FILENAME> 
> 174 8 71 1 INSS_FAILED ! Failed to process request for <FILENAME> 
: 175 te 1 INS$-FAILGETVM, i Failed to get virtual memory 
: 176 bef 1 INSS_HELP, ' Enter /HELP for INSTALL hel 
: 177 0374 1 INS$S_INTRNLERR, ! Internal Error: error detai 
: 178 0375 1 INSS_INVPRVNAM, ! Invalid etwtsege name 
; 179 0376 1 INSS_NOKFEFND, ! Known File not found 
: 180 0377 1 INS$_NOLOAD, ' Network and Soayens tatty loaded files are not installable 
> «181 0378 #1 INS$_NOPREV, ' No KFE deleted during REPLACE operation 
3 ise 0379 1 INS$_PRVNOTUNQ, ! Privilege name not unique 
; 18 0380 1 INS$_REMOVED; ! Entry for deleted file has been removed 
> «184 0381 1 
: #185 beet 1! 
; «4186 03835 1 ! External routines 
: 187 0384 1! 
; 188 0385 1 
: 189 0386 1 EXTERNAL ROUTINE 
; 190 0387 1 
; 3 $44 : ! Routine Defined in Function 
3 198 0390 1 INSSPARSE_OLD_CMD, ! INSOLDCMD Support the crusty old interface 
> 194 0391 1 INSSCREATE, ' INSCREATE perform CREATE command 
; 195 0 4 1 INSSDELETE, ' INSDELETE perform DELETE command 
: 196 03935 1 INSSPURGE, ' INSDELET erform the PURGE command 
; 197 0394 1 INSS$SGLOBAL , ' INSGLOBAL ist global sections 
: 198 0395 1 NSSLIST; ; 
; 19 0396 1 
: 200 0397 1 
: 201 0398 #1 
; 4 0399 1 
; a 0400 1 
: 204 0401 1 
: 205 0 4 ! 
: $08 a 
3 4 05 ' 
3 89 1 
; 08 1 
3 09 1 
s 1 
5 1 
° 1 
: 1 
3 1 
: 1 
: 1 
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FORWARD ROUTINE 
PARSE _NEW CMD, ' Call the new Dispatch routines 
INS$HELP_JERB ' Perform HELP function : 
INSSEXECOTE_IN_EXEC_WITH_R_LOCK, ' Execute in exec mode to take out read lock and then execute routin 
INSSEXECUTE IN_KRNL_WITH_W_LOCK, ' Execute in kernel mode to take out write lock and then execute rou 
EXECUTE _WITA_R-LOCK; ' Take out read lock and then execute routine 
10 EXECUTE WITH_W LOCK, ' Take out write lock and then execute routine 
11 INSSCNVRT_KF_LOCK ' Convert the mode of the KF lock 
\¢ INSSCVT_DIR = NOVALUE, ! Convert and compress directory brackets 
1 10 INSSOPER_F ILE ' handle file open processing 
14 11 INSSCLOSE_FILE, | handle file close 
15 \¢ INSSCHECK_PRIV, ! enforce privilege check in case INSTALL is installed 
i$ + INS_HANDLER; ! Handler to pick up highest severity 
i 15 GLOBAL 
19 16 SGNSGB_KFHSHSIZ, ! @@ Remove 


| 
| 
| 
! INSLIST List known file entries 
i 
| 
| 
| 
| 
| 
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Declarations 1 ~8ep-19 4 9b: 98ihs INSTAL. SROJINSMAIN.B32¢1 . (3) | 
| 
; 0 417 1 INSSL_INTRNLERR ! Pass back address of internal error descriptor 
: 201 418 1 INS$G-KFENAM : S$NAM_DECL, i file name block declaration 
3 ¢ 419 1 INSSGC_KF N, ' channel on which known file is open 
; 420 1 INSSGL_CTLMSK : BLOCK (1), ' Control flags resulting from command parse 
3 4 421 1 INSSGL_REPLACE_MSK: BLOCK (1), ! Control flags saved for REPLACE 
; 5 4 ¢ 1 INS$GQ ig: 3 ! buffer for resultant name 
; ° 4 1 $BBLOCK COSCS$C_S_BLNI, 
; 424 1 INSSGL_KFEADR, ' Address of known file entry 
: 8 425 1 INSS$SGQ_KFEPRIVS : SBBLOCK (8), ' Quadword privilege mask resulting from command parse 
: 9 4 § 1 INS$GQ_FILDSC : DYN_DESC_DECL, ' descriptor to obtain filename 
3 : Be : ! returned during command parse 
3 ¢ 429 1 INS$G_OUTRAB : $RAB_DECL, ! Used for output by INSSLIST and | 
3 0430 1 INS$G_OUTFAB : $FAB_DECL, ! —_ INS$GLOBAL 
: 0431 1 INSSG_KFEFAB : SFAB DECL ! file access block declaration 
3 5 04 ¢ 1 INS$G_KF_LKSB : S$BBCOCK te) ' Known file entries Lock status block 
3 $39 be ? : INS$G_INS_LKSB : S$BBLOCK 8); ! INSTALL lock status block 
; 238 0435 1 OWN 
3 @oP 0436 1 INSSEXIT_STATUS : $BBLOCK (4) ! Store worst error status to exit with 
: 240 0437 1 INITIAL (SS$_NORMAL) 
> 241 0438 1 PARSE_CMD_DESC : DYN DESC_DECL, ! descriptor of ‘INSTALL>’’ concatenated with input string 
3 $8 0439 1 INPUT-DEST : DYN_DEST_DECL, ' command string input 
; 26 0440 1 ERB_BESC : DYN_DESC_DBECL, 
3; 244 0441 1 HELP_DESC : DYN _DESC_DECL, : 
; 245 0442 1 PRIV-DSC : DYN_BESC_BECL, ' For parsing privileges on command Line 
: 246 0445 1 INTERACTIVE, ! boolean to record if this is a single execution of a 
; 247 0444 1 ! foreign command or an interactive session. 
> 248 0445 1 COMMAND _MODE ; ! Boolean to recall which CLD to use 
> 249 0446 1 
; 250 0447 1 LITERAL 
; 251 0448 1 NEW = 1, ! use New command verb interface 
: $26 0449 1 OLD = 0; ' use old command qualifier interface 
; 0450 1 
; 254 0451 1! 
$s @2 Bees 1 ! Define shared messages for local use 
: 256 0453 1! 
3 gor P 0454 1 SSHR_MSGDEF(CINS,123,LOCAL, 
5 58 0455 1 (OPENIN, ERROR) ); 
3 @oP 0456 1 
; 260 0457 1 BIND 5 
; $61 bee6 \ ! Descriptors of command strings used during command parseing 
; 88 460 1 COMMAND _MODE DSC = S$DESCRIPTOR (*COMMAND_MODE'), 
; 66 461 SLASH_COMM_DSC = S$DESCRIPTOR ("/COMM')7 
; 266 88 1 HEL_DSC = SDESCRIPTOR ("HEL") 
; 67 0464 HELP_DSC = SDESCRIPTOR (*HELP'S, 
3 44 $68 : FILE_SPEC_DSC = SDESCRIPTOR (‘FILE_SPEC'), 
3; e771 468 1 CREATE_DSC = SDESCRIPTOR ("CREATE') 
; oF 69 1 REPLACE DSC = SDESCRIPTOR (*REPLACE'S, 
: 27 470 1 DELETE_BSC = SDESCRIPTOR (‘DELETE’), 
: 274 471 1 EMOVE DSC = SDESCRIPTOR ("*REMOVE'), 
: 275 ote 1 LIST_DSC = SDESCRIPTOR (‘LIST’), 
; 76 04735 1 LOG_BSC = SDESCRIPTOR (‘LOG'), 
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GLOBAL DSC = 
ath 
ae DSC™= 
PROC $_DS 
gh8f = 
SC = 
DSC 
SC = 
- 
Sc = 


VILEGED_D DSC = 


SDESCRIPTOR 
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(*GLOBAL"), 
("PRIVILEGED") 
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J XSBTTL "INSTALL START*; 
1 GLOBAL ROUTINE INSTALL_START = 
BEGIN 


lee¢ 
' 
FUNCTIONAL DESCRIPTION: 

Check if there is a foreign command. 
f there is, see if it is preceded by /COMMAND_MODE which places INSTALL 
nto the new command verb mode. en if /COMMAND_MODE is followed by 
a command, executed i 9 a single foreign command and terminate. 
If /COMMAND_MODE specified alone, execute in command prompting mode 
and parse for new command verbs. 
If no /COMMAND_MODE present on foreign command Line, then parse using 
the trashy old command qualifier interface. Execute a foreign and quit 
or drop into prompt mode if no foreign command. 

IMPLICIT INPUT: 
none 

OUTPUT: 
Print command Line prompt and signal any errors. 

IMPLICIT OUTPUT: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
none 
i 

i 

i 

i 

i 


STATUS; 
BUILTIN 

FP; 
-FP = INS_HANDLER; 'Set handler 
eee 


1 
} Initialization 


i Se 
INS$SGQ_KFERNS CDSCSA_POINTER) = DDTSTR; 
COMMAND _MODE = OLD; 


ROUTINE VALUE: 
Low bit set for success. All errors are signalled. 
AL 
eerste : BBLOCK CNAMSC_MAXRSS], 
! Initialize DDT string pointer 


SGNSGB_KFHSHSIZ = 128; ! #t* Replace with a Literal *** 
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vo2-000 INSTALL START 14-8ep- 3B 93:98:48 INSTAL.SRCJINSMAIN.B32;1 . ot \ 
; 8 &G ; 
; 349 P 0545 SFAB_INIT( ! Initialize the File Access Block : 
; 0 P r* FAB = INSSG_OUTFAB, ; 
3 1 P 054 FAC = PUT, ; 
; ¢ P 054 RAT = CR, : 
3 $4 P 03469 FNM = *SYSSOUTPUT' i 
; 5 P 224 SRAB_INIT( ! Initialize the Record Access Block : 
; 28 P 22¢ RAB = INS$G_OUTRAB, ‘ 
: ef P 227 ~ = INS$G_OUTFAB : 
; 359 0595 REPORT (SCREATE (FAB = INS$G_OUTFAB) ); | Create a channel to sysSoutput i 
: 360 0336 ¢ REPORT (SCONNECT (RAB = INSSG_OUTRAB) j; i Connect to the channe ; 
; Beee ! ; 
; o7 8228 ; Allocate fao output buffer : 
; 65 0561 IF NOT (STATUS = LIBSGET_VM(ZREF CINSSC_FAOBUFLEN), INSS$FAOOUTBUF )) ; 
: 366 056¢ THEN RETURN SIGNAL (INSS_FAILGETVM,T, INSSC_FAOBUFLEN, .STATUS) ; ; 
; 368 0564 144+ ; 
; 369 0565 : : 
3 STO 0566 ! See if there is a foreign command Line. If there is 3 
: 371 0567 ! and it is not blank then flag non-interactive mode ; 
ic? a, 0568 ! and execute only that command. 3 
3s iY 0569 ! : 
; 374 0570 !<== : 
: 37? 0571 3 
3 317 B27¢ INTERACTIVE = TRUE; ! Will loop for command input : 
H 78 0574 REPORT (LIBSGET_FOREIGN( INPUT_DESC ) ); : 
; 379 0575 IF ( .INPUT_DESC CDSCSW_LENGTH] NEQ 0 ) AND ! If there is something on the Line : 
; 380 0576 NOT CHSFAIL( CHSFIND-NOT_CH ! and there is something besides blanks : 
: ae) 0577 . INPUT_DESCCDOSC$W"LENGTHI, : 
: Hy 0578 - INPUT_DESCCDSCSA_POINTERJ, %C' ')) 3 
; 2 0579 THE : 
: 384 0580 BEGIN 3 
; 385 0581 OCAL : 
; 386 6286 CMD_PTR, H 
; 387 058 CMD_LEN; 3 
; 388 0584 ‘ 
: 44 B283 COMMAND_MODE_DSC : SBBLOCK; ‘ 
; Bs 0367 STRSUPCASE ( PARSE_CMD_DESC, INPUT_DESC ); ! Upcase and copy to PARSE_CMD_DESC : 
; 38 589 !+o+ i 
3: 394 590 ‘ ; 
3; 395 591 ! Check for /COMMAND_MODE : ’ ‘ 
; 396 236 ’ If present by itself, then switch to new Command Language Definition i 
: 397 59 ! and go interactive. ‘ 
; 398 594 ! If present, then switch to new Command Language Definition then execute i 
; 4 332 the remainder of the command Line as a single command and exit. i 
; 401 239 } ‘ 
: 408 355 iid ; 
3; 404 00 CMD_PTR = STRSPOSITION ( PARSE_CMD_DESC, SLASH_COMM_DSC); ! Look for ‘'/COMM’’ on COMMAND_MODE Line | i 
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vou-000 INSTALL_START ye3eb=13ke 93:38:58 LANs tac ’SReSingmatwoasoc1 we \ 
: 405 601 IF .CMD_PTR NEQ 0 ! If found i 
; o06 oe : THEN ~ ' F 
; 40 6 4 BEGIN $ 
: 408 604 4 LOCAL 3 
; 409 605 4 PC_PTR : REF $BBLOCK, H 
; 410 on6 4 SC_PTR : REF SBBLOCK; : 
; «6411 6 & : 
; tig 608 4 ' : 
: ry p00 ? Remove as much of '’/COMMAND_MODE’’ as was present : 
: 415 0611 4 PC_PTR = .PARSE_CMD_DESC CDSCSA_POINTER] + 5; 3 
: 21$ olg 4 SC_PTR = ~ ZOMMARD MODE _OSC DSCSA_POINTER] + 4; : 
; ret oi? ? CMB_LEN = 5; : 
: 419 0615 4 WHILE .(.PC_PTR) <0, 8> EQL .(.SC_PTR) <0, 8> AND ; 
: 420 0618 4 -CMB_LEN LSS .PARSE_CMD_DESC CoSC$w_LENGTH] ; 
> 421 0617 4 dO $ 
; 4 ; 0618 : BEGIN ; 
:; 4 0619 PC_PTR = .PC_PTR + 1; ; 
> 424 0620 5 SC_PTR = .SC_PTR + 1; : 
: 425 0621 5 CMB_LEN = .CAD_LEN + 1; ; 
; 426 06 ¢ 4 END; : 
; 427 06 4 : 
; 428 0624 4 ! 3 
; rt! 0625 4 ! We've marched to the end of however much of ‘'/COMMAND_MODE'’ had : 
; 430 0626 4 ! been entered. Now drop that part and if anything is Teft : 
3; 431 0627 4 ' treat it as a single command and then exit, otherwise, mark 3 
3 +38 be : ? } new CLD and proceed as though interactive, i.e. no foreign command. : 
> 434 $680 4 STRSRIGHT ( PARSE CMD_DESC, PARSE_CMD_DESC, %REF (.CMD_PTR+.CMD_LEN) ); ; 
s rH Bee! 2 COMMAND_MODE = NEQ; ° 
: 437 0633 4 IF ( .PARSE_CMD_DESC CDSC$W_LENGTH] NEQ 0 ) AND ! If there is something on the Line ; 
; 438 0634 4 NOT CHSFAIL(~ CHSFIND_NOT-CH ! and there is something besides blanks : 
; 439 0635 4 io E_CMD_DESC COSC$W_LENGTH), 3 
; ree pe38 2 »PARSE_CAD_DESC COSCSA_POINTER), %C* ')) ‘ 
; 44 0638 4 INTERACTIVE = FALSE; ! There was something on Line other than /COMMAND_MO F 
; 443 0639 4 ' $0 execute the rest and then quit ; 
3 rr pert 4 ao ! /COMMAND_MODE was entered as foreign command : 
5 446 0642 : INTERACTIVE = FALSE; ! Foreign command was present but did not include /C : 
BR gw: : 
: ret Rete INSSL_INTRNLERR = 0; ! clear internal error descriptor ; 
: 451 O34? IF. COMMAND MODE EQL OLD ; 
; 438 649 INSSPARSE_OLD_CMD (PARSE_CMD_DESC, . INTERACTIVE) 
: 455 51 PARSE_NEW_CMD (); 
; $2t $38 RETURN (STATUS = .INSSEXIT_STATUS OR STSSM_INHIB_MSG); ! Return worst status 
3 459 bees END; ! Global routine install_start 
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\COMMAND _MODE\ 


RESS P.AAD 
I] \/COMM\ 


- LONG 
»ADDRESS P.AAF 
eASCII = \HEL\ 
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\HELP\ 
SS P.AAJ 
I YFILE_SPEC\ 


“LON 
“ADDRESS P.AAL 
“ASCII \CREATE\ 
*BLKB 2 


SS _P.AAN 
pereeses 


. 7? 
-ADDRESS P.AAP 
eASCII = \DELETE\ 
-BLKB 2 

LONG 6 
-ADDRESS P.AAR 
»ASCII \REMOVE\ 
-BLKB 2 

-LONG 6 
eADDRESS P.AAT 
eASCII \LISTN 


«LON 
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-LONG 5 
»ADDRESS P.AAX 
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-LONG 6 
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-$ep-1984 01:44:17 AX-11 Bliss-32 V4.0-742 
30071 38¢ 93:98:48 INSTAL. SROJINSMAIN. 8325 1 
ADDRESS P.ABB 
P.ABD: ASCII \HEADER_RESIDENT\ 
‘BLKB 1 
P.ABC: .LONG 15 
“ADDRESS P.ABD 
P.ABF: ASCII \PROCESS\ 
“BLKB 
P.ABE: .LONG 7 
ADDRESS P.ABF 
P.ABH: ASCII  \SHARED\ 
“BLKB 
P.ABG: .LONG 
“ADDRESS P.ABH 
P.ABJ: <ASCII \OPEN\ 
P.ABI: .LONG 
“ADDRESS P.ABJ 
P.ABL: ASCII  \PROTECTED\ 
“BLKB 3 
P.ABK: :LONG 
“ADDRESS P.ABL 
P.ABN: <ASCII  \WRITEABLE\ 
“BLKB 3 
P.ABM: .LONG 9 
“ADDRESS P.ABN 
P.ABP: ASCII  \PURGE\ 
“BLKB 
P.ABO: .LONG 
ADDRESS P.ABP 
P.ABR: ASCII \ACCOUNTING\ 
“BLKB 2 
P.ABQ: .LONG 10 
“ADDRESS P.ABR 
PeABT:  -ASCII  \EXECUTE_ONLY\ 
7ABS: LONG 1 
“ADDRESS P.ABT 
P.ABU: ASCII \SYSSOUTPUT\ 
.PSECT S$OWNS,NOEXE,2 
INSSEXIT_STATUS: 
“LONG 1 
PARSE_CMD. DESC: 
“BYTE 02) 
“BYTE 14, 2 
“BLKB 4 
INPUT_DESC: 
BYTE 02) 
“BYTE 14, 2 
“BLKB 4 
VERB_DESC: 
<BYTE 02) 
“BYTE 14, 2 
“BLKB 4 
HELP_DESC: 
-BYTE ore) 
BYTE 14, 2 


lo 


N11 


0O# 00024 PRIV_DSC: 
BYTE OC 
02 O€ 036 -BYTE 14 
09 -BLKB 4 
O2C INTERACTIVE: 
-BLK 4 
00030 COMMAND_MODE : 
-BLKB 


.PSECT $GLOBAL$,NOEXE,2 
00000 SONOS AP SEIS 
00004 INSSL_INTRNLERR: : 
00008 INS$G_KFENAM: : 
00068 INSSGL_KFECHAN: : 
0006C INSSGL_CTLMSK:: 
-BLKB 
00070 INSSGL_REPLACE_MSK:: 
00074 INS$GQ_KFERNS : : 
0007C INS$GL_KFEADR:: 
.BLKB 
00080 INS$GQ -KFEPRIVS: : 
00# 00088 INS$GQ -FiLDS¢:: 
02 O€ O008A -BYT TE 
00090 INS$G_OUTRAB: : 
.BLKB 
000D4 INS$G_OUTFAB:: 
-BLKB 
00124 INSSG_KFEFAB:: 
-BLKB 
00174 INS$G_KF_LKSB:: : 
0017C INS$G_INS_LKSB:: 
-BLKB 8 


96 


INS$Q P.AAA 
CORRARD, MODE “_DSC= P.AAC 
DSC= P.AAE 


W COMA 
C 
E 
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5 
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e 
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V o 
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RAB 
ARSE CLISDISPATCH 
ecb sel VALUE 
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OCOMD, CLIS_NOQUAL 
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KOBUFDESC, CTL$GQ_PROCPRIV 


TED 

FAIL 

pr AILGETVR 
_INTRNLERR 
“INVP siNss NOKF EFND 
S-NOLOAD.. I $ _NOPRE 

-EXTRN INSS$~PRVNOTUN Mss REMOV ED 
.EXTRN INSSPARSE OLD. MD 

.EXTRN INSSCREATE, INS SDELETE 
-EXTRN INSSPURGE, INS$GLOBAL 

.EXTRN INSSLIST, SYSSCREATE 

"EXTRN SYSSCONNECT 


-PSECT SCODES,NOWRT,2 


ENTRY INSTALL to F seve R2,R3,R4,R5,R6,R7,RB,RI 
M #INSSC_FAOB UFLEN - RY 


I 

MOVAB $RMS_P 

MOVAB a4 CMO DESC, R6 

260(SP) 

MOVAB INS HANDLE 

MOVAB DDTSTR Tee gcae PKPERNS+4 
MMAN 


CLRL to 
MOVZBL #128, SGNSGB_KFHSHSIZ 
mOvCS #0, (SP), #07 #80, S$RMS_PTR 
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INSMAIN 1h-95 -1984 01:44:17 VAX-11 Bliss-32 V4.0-7 Page 14. 
yO2-000 INSTALL_START 127808 - 1 3b PTET CINSTAL_SRCJINSMAIN. B536 1 . (4) | 
67 5003 F A MOVW #20483, SRMS_PTR : $ 
16 AZ oi $9 tt MOVB $RMS_PTRE22 : ; 
1E AZ 0 02 F 8 043 MOVW {4 $RAS_PTR+30 : ; 
ef A? 0000" CF : 04 MOVAB P.ABU, $RMS_PTR+44 : ; 
4 av A 90 0004F MOVB #i0, $RMS_PTR+52 : | : 
0044 8F 00 6E ac 00 2c 3 mMOoVCcS #0, Gn “#0, #68, SRMS PTR 3 0554 | : 
BC AT 4401 BF 80 0056 MOVW #17409, $RMS_PTR : | : 
F& AT 67 E 0006 INS$G_OUTFAB; $RMS_PTR+60 ; F 
7 OD 0066 PUSHL + 0555 ; 
000000006 00 01 FB 006 CALLS #1, SYSSCREATE : F 
05 30 E OO6F LBS STATUS, 1$ : ; 
DD 2 PUSHL STATUS : 3 
68 01 FB 00074 CALLS #1 LIB$S1GNAL : : 
BC AZ 9F 00077 1$: PUSHAB 1Nés6 OUTRAB + 0556 : 
000000006 00 01 FB 0007A CALLS SYSSCONNECT : : 
05 50 €8 00081 BLBS erATD , 2s : : 
50 DD 00084 PUSHL STATU $° : : 
68 01 FB 00086 CALLS LIBSSIGNAL : ; 
000000006 90 9F 00089 2$: PUSHAB Tnést ApOUTBUF + 0561 ; 
04 AE 9 DO 0008F OVL R9 4(SP) : | : 
04 AE 9F 00093 PUSHAB 4(SP) : : 
000000006 00 02 FB 00096 CALLS #2, LIBSGET_VM ; : 
54 50 DO 0009D MOVL RO, STATUS : | ; 
10 54 €E8 OOOA0 BLBS STATUS, 3$ : | ; 
54 DD 000A3 PUSHL STATUS > 0562. ; 
59 DD 000A5 PUSHL 9 : | : 
01 DD 000A7 PUSHL #1 : : 
000000006 8F DD 000A9 PUSHL #INS$_FAILGETVM : F 
68 04 FB OOOAF CALLS #4, LTBSSIGNAL - 3 
04 0008 RET : ; 
28 AG 01 DO 00083 3s: MOVL #1, INTERACTIVE : 0572 | : 
08 A6é 9F 0008 PUSHAB IN : 0574 ; 
000000006 00 01 FB OOOBA CALLS #1, LIBSGET_FOREIGN : | F 
05 50 €8 000C1 BLBS STATUS, 4$ : ; 
50 DD 000C4 PUSHL STAT 5" : : 
68 01 FB 000C6 CALLS LIBSSIGNAL : : 
50 08 Ab 3¢ 000C9 4$: MOVZWL tnbut _DESC, RO : 0575 ; 
76 13 000CD BEQL 10s, : ; 
0c B6 50 20 38 OOOCF SKPC #32, RO, @INPUT_DESC+4 ; 0577 | é 
02 12 00004 BNEQ © 5$ : ; 
51 D4 90006 CLRL sR : : 
51 DS 00008 5$: TSTL = RY : 0578 : 
69 13 OODA BEQL 10% : | ; 
08 Ab YF 000DC PUSHAB INPUT_DESC : 0587 | : 
56 DD OOODF PUSHL R : : 
000000006 00 02 FB 000E1 CALLS #2, STRSUPCASE : | : 
0000' : 9F O00E8 PUSHAB SLASH_CO > 0600 : 
6 DD OO0EC PUSHL R : : 
000000006 00 92 F OE CALLS # STRSPOSITION ; ; 
D5 O00F TSTL CMO_P + 0601 | ; 
49 1 OOF BEQL 4 9$ ~ ; ; 
53 04 Ab 5 Ci 000F9 ADDL3 #5, PARSE_CMD_DESC+4, PC_PTR + 0611 | ; 
52 0000' cr 4 (C1 OOOFE ADDL #4, COMMARD _MODE_DSC4#4, SC_PTR : 0612 | 3 
1 3 BO 1 MOVL «#5, LEN : 0613. ; 
62 6 1 00107 6$: CMPB pe -PIRTS (SC_PTR) > 0615 | : 
F 12 0010A BNEQ : | ; 
| 


12 | 

INSMAIN 16-Sep-1984 AX-11 Bliss -32 V4.0-742 Page 15) 

yo2000 INSTALL_START 1 ~Sep- 1982 93: $8: i INSTAL. $RCI INSMAIN.B32;1 ° aaa 

51 a 10 FD 10 CMPZV 40, #16, PARSE_CMD_DESC, CMD_LEN 3 0616 
1 BLEQ : 

D6 0011 INCL  PC_PTR 3 0619 

D6 0011 INCL  SC7PT : 620 

D6 0011 INCL CMB_LEN 3 0621 

ee 119 BRB as : 0615 

6E 50 1 Ci 00118 7$: ADDL3 CMD_LEN, CMD_PTR, (SP) : 0630 
4040 BF 6B OO11F PUSHR #*M2R6,5P> : 
$ DD 001 3 PUSHL RS : 
000000006 00 FB 01 CALLS , STRSRIGHT : 

2c AG 01 012C MOVL #1, COMMAND_MODE : 0631 

50 $6 g 1 MOVZWL PAsE. CMD_DESC, RO + 0633 

04 B86 50 20 3B 001 SKPC #32, RO, @PARSE_CMD_DESC+4 + 0635 
2 12 0013A BNEQ 8$ 3 
51 04 0013¢ CLRL ss RV : 

51 05 0013E 8S TSTL = RY. + 0636 
03 13 00140 BEQL 10$ : 

38 Ag D4 00142 9$: CLRL INTERACTIVE + 0642 

FF30 C7 D4 00145 10$: CLRL INS$L_INTRNLERR > 0645 

2C Ab DS 00149 TSTL COMMARD D_MODE + 0647 
OE 12 0014¢ BNEQ 11$ : 

28 A6 DD O0014E PUSHL INTERACTIVE : 0649 
56 DD 00151 PUSHL  R6 : 
000000006 00 02 FB 00153 CALLS me INSSPARSE_OLD_CMD : 
05 11 0015A BRB 12$ ; 

0000v CF 00 FB 0015C 11$ CALLS #0, PARSE_NEW_C : 0651 

54 FC A6 10000000 8F C9 00161 12$ BISL3 #268 8435438, INSSEXIT _STATUS, STATUS : 0653 
50 54 DO O016A MOVL STA : 

04 0016D RET : 0655 


; Routine Size: 366 bytes, Routine Base: S$CODE$ + 0000 


; 460 0656 1 


ee ees ee ea | 


INSMAIN 16-56 Sep-1 AX-11 Bliss-32 V4.0-742 P 1 
yo2e000 parse_new_cmd =3007 138% 93: $8; i INSTAL .SRCJINSMAIN.B32;1 na (5 
46 657 1 ZSBTTL ‘parse_new_cmd'; 

46 6 


ROUTINE PARSE_NEW_CMD = 
BEGIN 


—_ 


CLISGET_VALUE (ZASCID ‘SLINE', VERB_DESC); 


WeLP PTR = grneross tien (VERB_DESC, HEL_DSC); 
-RELP_PTR NEQ 0 


THEN 
INSSHELP_VERB () 


: 1 ; 
: 465 66 ; 
: 46 661 lee+ 3 
: 46 66 : | F 
; 468 66 : 3 
: 469 664 leon 3 
: 470 665 LOCAL 3 
> 471 066 STATUS; | ; 
; 47 66 3 
; 47 66 IF NOT . INTERACTIVE F 
; 476 6 THEN : 
: 475 0670 BEGIN 3 
: 476 0671 : 
; 477 067 STATUS = CLISDCL_PARSE( PARSE_CMD_DESC, INSCMD ); ! parse the command ‘ine : 
; 478 067 IF .STATUS : 
; 479 0674 TH 3 
; 480 0675 REPORT (CLISDISPATCH () ); : 
: 481 0676 D 3 
; 48 0677 3 
: 48 067 ELSE ! INTERACTIVE 3 
3 0679 BEGIN 3 
; 485 068 dO ! Keep looping while still interactive 3 
; 0681 4 BEGIN $ 
: 0683 4 DO STATUS = CLISDCL_PARSE (0, INSCMD, LIBSGET INPUT, | é 
> 489 0684 4 ET INPUT, SDESCRIPTOR('IASTALL> ') ) 

; 0685 4 UNTIL .STATUS NEQ CLI$ TROON OMD; 

; «4491 0686 4 

; 49 0687 4 IF .STATUS 

; 49 0688 4 THEN 

> 494 0689 5 BEGIN : 

: 495 0690 5 INSSL_INTRNLERR = 0; ! clear internal error descriptor 

; 0691 5 REPORT (CLISDISPATCH ()); 

3 497 0692 5 END 

; 498 0693 4 ELSE 

; 499 0694 5 BEGIN 

; 500 0695 5 IF .STATUS EQL RMSS_FNF THEN RETURN .STATUS; | 

: 501 0696 5 IF .STATUS EQL RMS$_EOF THEN RETURN TRUE; 

: 502 0697 5 IF .STATUS EQL CLI$_NOQUAL | 

; 503 0698 5 THEN | 

3; 504 0699 6 BEGIN | 

> 505 870 6 ! 

; 506 701 6 i If status is CLIS_NOQUAL then user may have typed 

3; 507 0702 6 i HELP /QUALIFIER and we really should drop into HELP 

; 208 ? for him rather than barf out with a noqual message. 

: 05 6 LOCAL 

3 0 ? HELP_PTR; 

3 6 

3 6 

3 6 

: 6 

; 6 

$ 6 


a ed ed aed ad 
WNOUSWN—O 
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INSMAIN 16-Sep-1984 01:44:17 AX-11 Bliss-32 V4.0-742 Page 17 
V02~000 parse_new_cmd 12286871388 2:35:38 INSTAL.SRCJINSMAIN.B32;1 : (5) | 
; 519 714 6 ELSE 
: 5 0 715 § SIGNAL (.STATUS); 
: 1 rig ND; 
3 é ¢ 717 & END; 
; rg 4 END ! end of DO-WHILE interactive | 
: 3 4 71 WHILE . INTERACTIVE: | 
: 5 4 0 END; ' Interactive 
: 526 721 | 
; $27 07 g RETURN TRUE; 
; 528 07 1 END; ! Routine parse_new_cmd | 
| 
-PSECT $PLITS,NOWRT,NOEXE,2 | 
20 3E 4C 4C 41 54 53 4E 49 00192 P.ABW: . ASCII \INSTALL> \ : | 
00198 "BLKB 1 
00000009 0019C P.aBV: .: : 
00000000" 001A0 -ADDRESS P.ABW : 
00 00 00 45 4& 49 4C 34 OO1A4 P.ABY: -ASCII \$UINE\<0><0><0> : | 
010E0005 OO1AC P.ABX: .LONG 17694725 : 
00000000" 00180 -ADDRESS P.ABY : | 
.PSECT S$CODES,NOWRT,2 
O1FC 00000 PARSE_NEW CMD: | 
.QORD Save R2,R3,R4,R5,R6,R7,RB : 0659. 
58 000000006 00 9€ 00002 MOVAB LIBSGET INPUT, R8& ; | 
$7 000000006 00 9€ 00009 MOVAB LIBSSIGRAL, R? : | 
56 000000006 00 9E 00010 MOVAB CLISDISPATCH, R6 ; 
55 000000006 00 9€ 00017 MOVAB CLISDCL_PARSE, RS ; | 
54 000000006 00 9E O001E MOVAB INSCMD, ~R4 ; 
53 0000' CF 43 000 MOVAB INTERACTIVE, R3 ; 
1B 63 EB 0002A BLBS _—INTERACTIVE, 2$ : 0668 
54 DD 0002D PUSHL R4 : 0672 
D8 A3 OF O00F PUSHAB PARSE_CMD_DESC ; 
65 08 FB 000 2 CALLS #2, CCISDCL_PARSE ; 
52 DO 000 MOVL R ATUS : 
0B 52 €9 00038 LBC Ss STA 1$ : 0673 
ry 0 FB 0038 CALLS #0, CLISDISPATCH : 0675 
05 50 €8 000 LBS STATUS, 1$ ; 
50 DD 0041 PUSHL STATUS ; | 
67 gi Fe 4 CALLS #1, LIBSSIGNAL ; | 
A 1 Bpee 1$: BRB 8$ : 0668 | 
0000" CF 9F 00048 2$: PUSHAB P.ABV > 0686 | 
8 DD 0004C PUSHL R ; 0683 | 
0110 F BB 0004 PUSHR #*M<R4,RB> : 
7 D4 000 CLRL = =( SP) : | 
65 Q FB 0 CALLS #5, CLISDCL_PARSE ; | 
52 D 7 MOVL RO. STAT ; | 
000000006 &F 52 (1 A CMPL TATUS, #CLI$S_NOCOMD > 0685 
3 3 61 BEQL $ 3 
OE E 63 BLBC STATUS, 3$ : 0687 
0000° cr D4 066 CLRL —_—‘ INS$L_INTRNLERR > 0690. 
66 0 FB 0006A CALLS #0, CCISDISPATCH ; 0691 | 


INSMAIN 18-5¢ $ep-1984 AX-11 Bliss=32 V4.0-742 P 18 I) 
yo.7000 parse_new_cmd 1 ~3e0n 138% 93: $8: i INSTAL. SROINSMAIN. B32;1 —_ (5) Vv 
4F 5 E8 6 LBS STATUS, 7$ ; 
i a | 
00018292 8F D1 00074 3$ CMPL STATUS, #98962 + 0695. 
. 7 7B BNEG 4$ 
50 2 06 7D Rov. STATUS, RO : | 
0001827A 8F i D1 00081 48: — CHPL «STATUS, #98938 ; 0696 
000000006 8F 3 I A cHPL TATUS, #CLI$_NOQUAL : 0697 
Fs <5 i 93 PUSHAB VERB_DESC : 0708) 
00060" CF F 00096 PUSHAB P.ABR : 
000000006 00 2 FB O0009A CALLS #2, CLISGET_VALUE : 
0000' CF 9F 90a PUSHAB HEL gst. + 0710 
E8 A3 9F OOOAS PUSHAB VERE D : 
000000006 00 02 FB 0008 CALLS # STRSPOSITION : 
08 OOAF TSTL = HELP| + 0711 
07 1 90081 BEQL $ : 
0000v CF 90 re 00085 CALLS #0. INSSHELP. VERB + 0713 
52 DD OOOBA 5$: PUSHL STAT US + 0715 
67 01 FB 000BC 6$: CALLS LIBSSIGNAL : 
86 63 £8 OOOBF 7$: BLBS intenacrives 2$ : 0719 
50 01 DO 000C2 8$: MOVL #1, RO : 072 
04 0005 RET : 072 


; Routine Size: 198 bytes, Routine Base: SCODES + 016E 


; See 0724 1 


wnt 


b 


; Routine Size: 
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Dt et ele el ee 
ONAUS WOOO 
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INSSHELP_VERB 


725 


vw 


pew eee wwf ololololelolololololo) 


SQN NNN 


5 ee ele 
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00 00 00 


0743 
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AX-11 Oi fegsse V4.0-7 
INSTAL.SRC 


ZSBTTL ‘INSSHELP_VERB'; 

GLOBAL ROUTINE INSSHELP.VERB = 

° 

i New command interface action routine for HELP 

' Request help erirses ee Lib$put euteue to sys$output 

' rom Library SYSSHELP: INSTALHLP.HLB very for additional help 
! to sys$input using Lib$get_ input. 


BEGIN 
CLISGET_VALUE (ZASCID "HELP_LINE', HELP_DESC); 


REPORT ( LERSOUTPUT HELP (LIBSPUT OUTPUT. 0 , HELP_D 
DESCRIPTOR('INSTALHLP'), O,LIBSGET_ es tbur) ); 
RETURN TRUE; 


! routine INSS$HELP_VERB 


-PSECT S$PLITS,NOWRT,NOEXE,2 


-ASCII Natya  atrmaatoncttinns 
«LONG 

»ADDRESS P.ACA 

ASCII \INSTALHLP\ 

-BLKB 3 


45 4— 49 4C SF 50 4C 


50 4C 48 4C 41 54 53 


-LONG 9 
»ADDRESS P.ACC 


SCODES,NOWRT ,2 


. nye VERB, Save nothing 
PUSHAB HELP_DEST 


P.AB 
2 CLISGET VALUE 
LIBSGE NPOT 


0000' 
0000" 


000000006 


0000' 
0000° 


000000006 


9F 00002 
000000006 00 


ACB 
HELP DESC 
~(SPY 
LIBSPUT OUTPUT 


000000006 re LBRSOUTPUT HELP 
STATUS, 1$ 


000000006 


SOOVMOONOOIOOOO 
=—=3DOKoOma "morn "sh 


Brats 
P qe pesca, 
1$: aR 


OU MOMNOTOOTO"O 
on 


Sowocowow re "ss 
FROVINO O09 ON 
wv 
= 
“ 


Ooooooooooooooo 
Soooooooooooeoo 
WNIAIIWIN NIN a +: 


Routine Base: S$CODE$ + 0234 


INSMAIN, ase 1 


Pete Se Se Se Se Se Se Se Be Se Se Se Be Se Se 


<_ 


INSSEXIT_VERB 


CSS 
—"OODONOUFS WN 


Ww 


12 
1h-$6p-1986 01:46:17 VAX=11 BLiss-32 v4.0-742 p 0 
ereen ike PbiSSike PINS TA Sees TRewNti esses soe 6 


1 XSBTTL ‘INSSEXIT_V 
GLOBAL ROUTINE INSSEX 


” 
New command interface action routine for EXIT 


ERB’; 
EXIT_VERB = 


BEG! 
INTERACTIVE = FALSE; 
sf 


! Routine INSSEXIT_VERB 


0000 00000 ENTRY INSSEXIT_VERB, Save nothing 3: 0745 
0000' ff 04 00002 CLRL INTERACTIVE : Bree 

50 1 oO 4493 MOVL #1, RO : 075 
4 00009 RET : 0754 


10 bytes, Routine Base: S$CODE$S + 0274 


; Routine Size: 


J 12 | 
INSMAIN 16-Sep-1986 01:44:17 AX-11 Bliss-32 V4.0-742 Page 21. 
yo2e000 INSSCREATE_VERB 12-8 08- 1 3be Ooi gei te INSTAL. SRCJINSMAIN.B32;1 . 8) | 
; 564 0756 1 XSBTTL ‘INSSCREATE_VERB'; ; 
; 565 7 5 1G GLOBAL ROUTINE ENSSCREATE: _VERB = ; 
3 08 7 8 1 !¢ Ps 
: 308 eo 1 iN d interface acti ine for CREATE | ; 
3 ‘ ew command interface action routine for . 
; 569 0761 1! ; 
; 570 8706 1 leo ; 
; 71 076 BEGIN ; 
§ 2r¢ 0764 LOCAL 3 
: Bar $782 Ci ARES vector (1), ! list for ch de dispatch 
3 : ° ! arguement st for change mode dispatcher ‘ 
: 575 9767 OPER S S, : : ; ; 
: 576 766 ATOs. F 
3 S77 0769 3 
; 578 0770 INSSGL_CTLMSK CINSSV Pepe $8 = CLISPRESENT( PROCESS_DSC ); : 
s 379 0771 IF NOT” - INS$SGL_ CTLMSR C V_PROCESS] . 
:; 580 or re THE 3 
; 581 077 BEGIN 3 
3 oB6 0774 ! 5 
; 3 0775 ! Since INSTALL | be installed with CMKRNL privilege. : 
> 584 0776 ! check that user has CMKRNL priyicese before allowing ; 
; + #4 14a any operations other than /PROCESS operations. ; 
s S87 0779 CK ARGLST (0) = ; 
; 588 0780 TATUS = SCHKRNL fRouTIN = INSSCHECK_PRIV, ARGLST = CMK_ARGLST); ; 
; 589 0781 7 NOT .STATUS é 
; 590 1414 THEN 3 
: 591 0783 4 BEGIN F 
3 236 0784 4 SIGNA A. {sss _-NOCMKRNL) ; 3 
; 59 0785 4 RETURN TRUE: F 
: 594 0786 END; 3 
; 595 0787 3 
; 596 0788 INSSGL_CTLMSK CINSSV_PRIV] = CLISPRESENT( PRIVILEGED_DSC ); g 
: 597 0789 ; IF .INSSGL_CTLMSK CINSS$V_PRIVI 3 
; 598 0790 EN 3 
; 599 0791 4 BEGIN 3 
; 600 4454 4 LOCAL 3 
3; 601 0795 4 ALL_PRIVS; ! boolean $ 
: 60 0794 4 : 
; 60 0795 4 L_PRIVS = TRUE; ' turn on all privs by default F 
; 604 0796 4 CHEF IEE (0, 8, INS$GQ_KFEPRIVS); ! initialize privilege quadword to zeros 3 
; rt Pade 4 WHILE CLISGET’ VALUE (“PRIVILEGED_DSC, PRIV_DSC ) DO : 
; 607 799 ALL_PRIVS = FALSE; ' turn off default : 
3 on pB0y : SELECT PRVSSETPRIV (PRIV_DSC, INS$GQ_KFEPRIVS) OF ! set the appropriate bit in the mask : 
3; 610 4 : 3 
3: 611 080 CPRV$_INVNAM): 3 
3 o1¢ ti 6 BE 3 
3; 661 805 6 Sr SNA. CINSS_INVPRVNAM, 1, PRIV_DSC); 3 
3 614 £06 RETURN TRUE;~ é 
3; 6615 0 END; 3 
; 616 808 | 3 
3: 617 809 5 CPRV$_NOTUNQ): 3 
3; 618 0810 6 BEGIN 3 
3; 619 0811 6 SIGNAL {INSS. PRVNOTUNQ, 1, PRIV_DSC); F 
3; 620 0812 6 RETURN TRUE;~ 3 


INSMAIN 


v04-000 INSSCREATE_VERB 


pa1984 12:35:58 LINSTALSRESINGMAIN.852¢ 1 


STATUS = INSSCREATE (); 


ELSE 
STATUS = INSS$_EXISTS; 


IF NOT .STATUS 
THEN 


BEGIN 
IF .STATUS EQL INSS$S_INTRNLERR 


SIGNAL (INS$_ FAIL. 2. CREATE DSC, INS$GQ_KFERNS, 
“STATUS, 1,. INSSL_INTRNLERR) 


LSE 
SIGNAL (CINS$_FAIL,2,CREATE_DSC, INS$GQ_KFERNS,.STATUS); 


ELSE 
BEGIN 


' Create it 


AQEMAMAMNMMNAVIVIUIU 


Rt tt-tt-a 
WONOUL Ww — 


000 
aon 


: 621 0813 2 END; 

3 6 ¢ Baie TES; 

; 6 815 END; ! end while there are more privs 
; 624 Bais 4 IF .ALL_PRIVS ! No privs specified with /PRIV so 
; 625 0817 4 THEN CH HSFILL (-1, 8, INS$GQ_KFEPRIVS); ! use default of all privs set 
; 6 $ 0818 END; ! /PRIV 

; 6 081 

: ° : 88 9 END; ! Not /PROCESS 

; e . 4 ¢ INSSGL_CTLMSK CINSS$SV_FILSPC] = CLISPRESENT( FILE_SPEC_DSC ); 

3 2 § +4 ; INSSGL_CTLMSK CINSSV_WRITABLE] = CLISPRESENT( WRITE_DSC ); ! Get WRITE before we open file 
: 634 0826 

3; 635 0827 ' Get the file spec from the CLI 

: 636 0828 i 

3; 637 0829 REPORT ( oF ed La 4 ( FILE_SPEC_DSC, INS$GQ_FILDSC) ); 

: 638 0830 ore STAT = IRSSOPE FILE TQ); 

; 639 0831 thot OPEN. STATU 

: 640 0836 14 N 

3; 641 083 BEGIN 

3 ong 0834 INSSCLOSE FILE (); 

3; 64 0835 RETURN TROE; 

: Bes ORs 

: 646 0838 IF .INS$GL_KFEADR EQL 0 

3; 647 0839 THEN 

: 648 0840 BEG 

3; 649 0841 GNSSGL._ CTLMSK CINS$V eves.” FALSE; 

; 650 Berg PURGE = CLISPRESENT(~ PURG E_DSC ); 

: $3) Obed IF .PURGE EQL CLIS$_NEGATED™ THEN INSSGL_ CTLMSK CINS$SV_NOPURGE] = TRUE; 
; §2¢ 0845 INS$SGL_CTLMSK INSSv asd CT] = CL TSERE SENT prorect DSC ); 

; 654 0846 INSSGL— _CTLMSK CINSS$V = CLISPRES ENT( OPEN_DSC )= 

: $2? e784 INSSGL_ CTLMSK CINS$V~ OORRES) LOT SPRESENTS HDRRES. psc ); 

; 657 0849 INSSGL_CTLMSK CINSSV_SHARED? = CLISPRESENT( SHARED DSC ) 

: 658 0850 INS$GL_ CTLMSK CINS$V— ACCOUNT) = CLISPRESENT( ACCOUNT dsc’ ds: 

; 4 83 2 INSSGL_CTLMSK CINSSVEXEONLY] = CLISPRESENT( XONLY_DSC ); 

: 08 

3 0854 

: 0855 

o3 $ 

: 08 § 

; 0860 

; 08 

3 

F 0 

3 0 
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2 
INSMAIN 18-Sep-19 r 9} git? AX-11 Oh lesa V4.0-742 Page AY} 


v04-000 INSSCREATE_VERB -Sep-19 8 INSTAL. SRCJINSMAIN.B32; 1 ) 
: £5 nat See if it should be logged 

4 ee snou e Logge 

680 0 ze 

: 681 7 if CLISPRESENT( LOG_DSC ) 

; 68 0874 THEN 

: 68 0875 4 BEGIN 

> 684 0876 4 INSSGL_CTLMSK CINSS$SV_FULL] = TRUE; 

> 685 877 4 INSSLIST (.INSSGL_KFEADR); 

; 686 0878 4 INS$GLOBAL (.INSSGL_KFEADR); 

> 687 087 END; 

; 4688 0880 

: 689 0881 

: 690 8 é 

; 691 088 

: 69 0884 2 RETURN TRUE; 

; 69 0885 1 END; ! routine INS$SCREATE_VERB 


-EXTRN = SYSSCMKRNL 


END; 
INSSCLOSE_FILE (); 
OFFC 00000 .ENTRY INSSCREATE_VERB, Save R2,R3,R4,R5,R6,R7,R8,-; 0757 
5B 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R11 : 
5A 0000" CF 9E 00009 MOVAB PRIVILEGED DSC, R10 ; 
59 000000006 00 9€ 00005 MOVAB CLISPRESENT, R9 : 
58 0000' CF i 9001 MOVAB INS$GL_CTLMSK, R8 : 
SE 04 C2 OO01A SUBL ; 
28 «AA SF 00010 PUSHAB PROCESS_DSC : 0770 
69 1 FB 90020 CALLS #1, CLISPRESENT : 
68 01 01 0 FO 00023 INSV RO. #1, #1, INSSGL_CTLMSK : 
03 68 01 a 00028 BBC #1, INSSGL_CTLMSK,~1$ + 0771 
0099 31 0002C BRW ; 
gE D4 OOO2F 1S: CLRL  CMK_ARGLST : 0779 
E DD 00031 PUSHL SP : 0780 
0000v CF 9F 00033 PUSHAB INSSCHECK_PRIV : 
000000006 00 92 FB 00037 CALLS 2, SYSSCAKRNL ; 
57 50 00 0003E MOVL RO, STATUS ; 
OA 57 £8 0041 BLBS § STATUS, 2$ > 0781 
7E 2806 BF 3C 00044 MOVZWL #10244, -(SP) : 0784 
6B 01 FB 00049 CALLS #1, LIBSSIGNAL : 
6C 11 0004C BRB 6$ : 0785 
5A DD O004E 28: PUSHL R10 : 0788 
69 gi FB 05 CALLS #1, CLISPRESENT : 
01 «AB 01 07 0 F 5 INSV #7, #1, INSSGL_CTLMSK+1 ; 
01 AB 93 0059 TSTB NSSGL_CTLMSK+1 : 0789 
6A 1 bo C BGEQ 3 
56 4 ey 8 E MOVL #1, ALL_PRIVS ; 0795 
08 00 bE <> C 006) MOVCS #0. (SPT, #0, #8, INS$GQ_KFEPRIVS > 0796 
0000° cr OF O68 3$: PUSHAB PRIV_DSC : 0797 
000000006 0 5 ee ites CALLS py ISGET_VALUE ; 
0° of £8 oor BLBC ~—_—«RO, ot F 
36 b4 7 CLRL = ALL_PRIVS : 0799 
14 AB OF 007A PUSHAB INS$GQ_KFEPRIVS + 0800 
0000' CF 9F 0007D PUSHAB PRIV_DSC : 


“I9EL OSESGETE  YMGTHL SUS Beauties? rage 34 


v0o 


baat ty 1 
V04-0 INSSCREATE_VERB 14- 


000000006 9 F 1 CALLS #2, PRVSSETPRIV ; : 
D MOVL RO, R2 : ; 
000000006 &F D 8 CMPL Re, #PRVS_INVNAM + 0803 ; 
0— 12 BNEO 4 : ; 
0000" CF 9F 00094 PUSHAB PRIV_DSC + 0805 : 
1 0D 6 98 PUSHL #1 : ; 
000000006 br DD A PUSHL #INSS_INVPRVNAM : : 
000000006 8F 52 01 Oks 4$: CMPL R2, #PRVS_NOTUNQ + 0809 ; 
BD 12 0 A BNEG : : 
C000" CF 9F OOOAB PUSHAB PRIV_DSC + 0811 ; 
oi DD OOOAF PUSHL # : ; 
000000006 8F DD 00081 PUSHL #INS$_PRVNOTUNQ : : 
68 03 FB B7 5$: CALLS #3, LIBSSIGNAL : 3 
011C 31 OOOBA g$: BRW 17$ + 0812 : 
08 56 E9 90080 $: BLBC ALL _PRIVS, 8$ + 0816 ; 
08 FF oF 6E “ 00 C 900 MOVCS #0,~(SP), #-1, #8, INS$GQ_KFEPRIVS : 0817 ; 
84 AA OF b00¢8 3 PUSHAB FILE_SPEC_DSC + 0822 ; 
69 9! FB 00CB CALLS #1, CL ISPRESENT ; ; 
68 01 00 0 F doce INSV RO. #0, #1, INSSGL_CTLMSK : ; 
6C AA 9F 000D PUSHAB W Sc + 0824 ; 
69 01 FB 0006 CALLS #1, CCISPRESENT : : 
02 As 01 02 50 FO 00009 INSV , #1, INSSGL_CTLMSK+2 ; ; 
1¢ AB 9F O00DF PUSHAB INS$GQ_FILDSC + 0829 : 
84 «AA OOF O0Ee PUSHAB FILE SPEC DSC : ; 
000000006 00 02 FB OOOE CALLS #2, CLISGET_VALUE : ; 
* ab GB ae BBS, STATS. 98 : : 
68 01 FB OO0F CALLS #1, LIBSSIGNAL : 3 
0000v CF 00 FB O00F4 9S: CALLS #0, INSSOPEN_FILE + 0830 ; 
03 00nd §o 900k BLBS OPEN. STATUS, 10$ ; 0831 3 
10 as D3 OO0FF 10$: st INSSGL_KFEADR : 0838 ; 
02 Ag 08 8A 09104 BICB2 #8, INSSGL_CTLMSK+2 + 0841 : 
7C «AA 9F 00108 PUSHAB PU > 0842 ; 
69 1 FB 0010B CALLS #1, CCISPRESENT : 3 
000000006 8F 30 pt 0106 CPL PURGE, #CLIS_NEGATED > 0843 
02 08 ag 00117 BISB2 #8, INSSGL_CTLMSK+2 ; 
58 AA OF 0118 11$:  PUSHAB PROTECT > 0845 
01 FB 11E CALLS #1, CLISPRESENT ; 
50 F 4 1 SV #0, #1, INSSGL_CTLMSK+2 ; 
44 AA 9F 00107 PUSHAB OPEN + 0846 
1 FB O12A CALLS #1, CLISPRESENT : 
0 F 1 p INSV RO, #5, #1, INSSGL_CTLMSK+1 ; 
18 AA 9F 001 PUSHAB HDRRE + 0847 
1 FB 4 CALLS #1, CLISPRESENT : 
0 FO 001 INSV RO, #6, #1, INSSGL_CTLMSK+1 : 
38 AA. sOGF «(00138 PUSHAB SHARED DSC : 0849 
1 FB O142 CALLS #1, CLISPRESENT ; 
0 FO 0014 SVs RO #1, INSSGL_CTLMSK+2 ; 
0090 CA 9F 00148 PUSHAB act unt _psé ; 
1 FB 14F CALLS #1, CL ISPRESENT : 
0 F 136 INSV RO, #4, #1, INSSGL_CTLMSK+2 : 
00AS4 «CA «OOF 001 PUSHAB XONLY_DSC : 0851 


INSMA 
v04-0 


; Routine Size: 


694 


00 


1 
INSSCREATE_VERB 1 
9 1 FB 0015C 
01 5 £B bora 
000000006 90 FB 00169 
Bele 
{ 000000006 BF 09 00171 
8 7 €8 001 
000000006 &F 7 01 178 
1A 12 001 
98 AB DD 001 
Q) DD 00187 
Z pp 00189 
08 AS 9F 00188 
94 AA 9F 0018E 
02 pp 00191 
000000006 8F DD 00193 
68 07 FB 00199 
6 11 0019¢ 
57 DD 0019E 
08 AB 9F O0IAG 
94 AA 9F OO1A 
02 OD 001A6 
000000006 8F DD 001A8 
68 05 FB OO1AE 
21 11 00181 
DC AA 9F 00183 
69 01 FB 001B6 
18 30 £9 00189 
01 AB 04 88 001BC 
10 AB Dp 001CG 
000000006 00 01 FB OOIC 
10 AB DD OOICA 
000000006 00 01 FB 001CD 
0000V CF 00 FB 00104 
50 01 0 001D9 
04 001D¢ 


477 bytes, Routine Base: S$CODE$S + 027E 


0886 1 


N12 
rae 


“1 
b= 


14$: 


15$: 


16$: 


Be 92:3 


4 
5 


V? AX-11 Bliss-32 V4.0-742 


8 INSTAL.SRCJINSMAIN.B 


#1, CLISPRESENT 
RO; #1, INS$SGL_CTLMSK+2 
#0, INSSCREATE 

R STATUS 


#INSS EXISTS, STATUS 
STATUS, 15$ 
TATUS, #INS$_INTRNLERR 


$L_INTRNLERR 
Ss 


4 
N 
1 
T 
NS$GQ_KF 
E-DS 


s 
ATU 
S$G ERNS 
REAT C 


#INSS FAIL 

#7, LIBSSIGNAL 
16$ 

STATUS 
INS$GQ_KFERNS 
CREATE_DSC 

#2 
aN 
16$ 

LOG_DSC 

#1, CLISPRESENT 


#4. INSSGL_CTLMSK+1 
INSSGL_KFEADR 

#1, INSSLIST 
INSSGL_KFEADR 

#1, INS$GLOBAL 

#0. INSSCLOSE_FILE 
#1, RO 


S$_FAIL 
LIBSSIGNAL 


0866 


LS 


13 
S$ep-1984 01:44:17 AX-11 Bliss-32 V4.0-742 P 6 
matt 93:93:48 LINSTAL SRE INSMAIN.B32;1 ve (55 


INSSREPLACE_VERB 


| 
: 6 ert 1 ZSBTTL ‘INSSREPLACE VERB’; ; 
; 69 3 1 GLOBAL ROUTINE INSSREPLACE_VERB = ‘ 
> 698 B89 1 !t+4 | ; 
> 699 890 1! : | : 
: 700 0891 1! New command interface action routine for REPLACE ‘ 
; 701 9d 1! : 
; 70 0893 1 j--- | ; 
: 70 0894 2 BEGIN ; 
; 704 Bao? OCAL : 
; 705 4) DELE : 
> 706 089 QUAL_PRESENT, : 
; 707 0898 CMK_ARGLST : VECTOR [1], ! arguement List for change mode dispatcher : 
; 708 0899 OPER STATUS, : 
F 444 344 STATOS; ; 
, ry 090 INSSGL_CTLMSK CINS$V_PROCESS] = CLISPRESENT( PROCESS. DSC ); ‘ 
; re 090 IF NOT .INSSGL_CTLMSR CINS$V_PROCESS) | ‘ 
- os 0904 THE : 
; 714 0905 BEGIN : 
3 75 0906 ' : 
; 716 0907 3 ! Since INSTALL aty be installed with CMKRNL privilege, ; 
: 717 0908 3 ! check that user has CMKRNL privilege before allowing : 
; At 3444 3 : any operations other than /PROCESS operations. ; 
; 720 0911 3 CMK_ARGLST (0) = 0; ; 
; 721 O91¢ STATUS = SCMKRNL (ROUTIN = INSSCHECK_PRIV, ARGLST = CMK_ARGLST); : 
s fee 091 ; IF NOT .STATUS : 
3 ges gate THEN : 
; 724 915 4 BEGIN : 
3 fe 0916 4 SIGNAL (SS$_NOCMKRNL); : 
3; re 0917 & RETURN TRUE; ‘ 
s fer 0918 3 END; ; 
; 728 0919 2 END; F 
3 44 0920 2 | 3 
3 a3 bas) § INSSGL_CTLMSK CINSSV_FILSPC] = CLISPRESENT( FILE_SPEC_DSC ); : 
: ioe 092 ' 3 
; Ay base ; Get the file spec from the CLI : 
3 0926 2 REPORT( CLISGET VALUE ( FILE_SPEC_DSC, INS$GQ_FILDSC) ); ; 
: 736 0927 § OPEN STATUS = INSSOPEN_FILE 7); ; 
3; fae 0928 IF (ROT .OPEN_STATUS) : 
: 738 0929 THEN $ 
; OF 0930 BEGIN 3 
; 740 0931 INSSCLOSE FILE (); : 
3; 74) 093 RETURN TROE; 3 
Be 093 : : 
3; 74 0934 : 
3; 744 0935 : ; : 
; 2 34 6 : Delete and recreate with new attributes : 
3: 747 0938 INSSGL_CTLMSK CINSSV_DELETE]) = TRUE; ' set delete flag , : 
; 748 0939 INSSGL-CTLMSK CINS$V-REPLACE) = TRUE; ! set replace flag so that attributes : 
3; 749 0940 , 0 ! will be returned in INS$GL_REPLACE_MSK : 
3 SDELETE Q); ! recreate it : 


13 
INSMAIN 1§- -Sep- =12 4 7 AX-11 Bliss-32 V4.0-742 Pa 7 
Ho2e000 INSSREPLACE_VERB 1e-Sep- 984 93:4 $:45 INSTAL. SRCJINSMAIN.B32; 1 - 5 
753 944 THEN 
754 945 BEGIN 
4 2 b3¢ DELETED = FALSE; ! Record status of delete step 
13 0948 If STATUS EOL INSS_INTRNLERR | 
759 SIGNAL (((INSS FAIL AND NOT STS$h SEVERITY) OR STS$K_WARNING), | 
760 E_DSC, INS$GQ NS | 
761 eT ATUS. T,.INSSL_ PNTRNEERRS « | 
16¢ END 
DELETED = TRUE; ! Record status of delete step 


INSSGL_KFEADR = 0; 
INSSCLOSE_FILE (); 


Entry has gone away 


INSSGL_CTLMSK = .INSSGL REPL A CE_MSK; ' use replace mask 
INS$SGL-CTLMSK CINS$V_CREATE] = TRUE: ! set create flag 
INSSGLICTLMSK CINSSVIDELETE] = FALSE; i clear delete flag | 


If any qualifiers were specified with REPLACE then 
check they override the current installed attributes. 
If they are negated they serve to remove the current attribute. 


QUAL_PRESENT = CLISPRESENT( PURGE_D 
.GUAL_PRESENT THEN INS$GL_CTLMSK SE désy NOPURGE] = FALSE; 
-QUAL“PRESENT EQL CLI$_ NEGATED THEN INSSGL_CTLMSK ciNgsy: “NOPURGE] = TRUE; 


F 

F 

UAL_PRESENT = CLISPRESENT( PROTECT_DS 
F QUAL “PRESENT THEN INSS$GL_CTLMSK'C 
F .QUAL_PRESENT EQL CLIS_ NEGATED THEN INSSGL_CTLMSK CINSS$V_PROTECT] = FALSE; 
UAL_PRESENT = CLISPRESENT( OPEN_DSC 
F .GUAL_PRESENT THEN INSSGL_CTLASK [ 
F ,QUAL_PRESENT EQL CLIS_NEGATED THE 


QUAL PRESENT = CLISPRESENT( HDRRES D DS 
-GUAL_PRESENT THEN INSSGL_CTLMSR CINS$V_HDRRES] = TRUE; 
if -QUAL-PRESENT EQL CLI$ SNEGATED THEN INsSCL _CTLMSK CINS$V_HDRRES) = FALSE; 


SUAL tag & CLISPRESENT ¢ PRIVILEGED_DSC ); 
A RESENT 


BEGIN 
LOCAL 
ALL_PRIVS; ! boolean 
pee CrUNE ae _PRIV] = TRUE; 


paIvs 
che HSFIL UTiis S$GQ_KFEPRIVS) 
si a VALUE ( (PRIVILEGED. DSC, PRIV_DSC ) DO 
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V_OPEN] = 


S$ 
INSSGL eUTLMSK. Prissy OPEN] = FALSE; 
); 


Pe 

INssi PROTECT] = TRUE; | 

); | 

IN 

Q | 

| 
| 
' 


turn on all privs by default 
initialize privilege pate wt B to zeros 


' turn off default : 
set the appropriate bit in the mask 


IVS = FALSE; 
SELECT PAVSSEIPRIY (PRIV_DSC, INS$GQ_KFEPRIVS) OF 


Be Oe Be Be Os Oe Oe Se Be Se Be Se Se Se Ge Fe Ge Se Se BF Se Be Se FF Se Se Se FH Se Se Se FH Se Ge Se FHS Se Se Se SH SH Se SH Se FHSS Be Se SHS SH ee BH SH we 
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INSMAIN -Sep- 1:44:17 AX-11 Bliss-32 V4.0-742 
vO4 02-000 INSSREPLACE_VERB Sep- 1982 3: 5:38 INSTAL. SRC TNSMAL -832;1 
CPRVS pyeenes 


SIGNAL (INSS_INVPRVNAM, 1, PRIV_DSC); 
to TRUE; 


CPRV$ 4 eam 
SIGNAL A TANS PRVNOTUNQ, 1, PRIV_DSC); 


RETU 
END; 
TES; 
END; ! end while there we more privs 
IF .ALL_PRIVS ! No privs specified with /PRIV so 
THEN CHSFILL (-1, 8, INS$GQ -KFEPRIVS) ; ' use default of all privs set 


END; V 
IF .QUAL_PRESENT EQL CLIS_NEGATED THEN INSSGL_CTLMSK CINSSV_PRIV] = FALSE; 
QUAL PRESENT = CLISPRESENT( SHARED_DSC 
.GUAL_PRESENT THEN INSSGL_CTLMSR Pingév SHARED] = 
if -QUAL-PRESENT EQL CLIS_ NEGATED THEN INSSGL_CTLMSK Linsiv. SHARED] = FALSE; 


IF, JNSSGL_ CTLMSK CINS$V_SHARED] 


WN OO OONOUSWN “OVD ONOULS WN oO 


BEGIN 
QUAL PRESENT = CLISPRESENT( WRITE_DSC 
.QUAL_PRESENT THEN INSSGL_CTLMSK FNésv WRITABLE] = TRUE; 
if -QUAL“PRESENT EQL CLIS_ NEGATED THEN INSSGL_CTLMSK CINGSY: “WRITABLE) = FALSE; 


0 00 50 OD GD Cd C9 Cod Cd 09 OD GD CD CD CD CD CD. OD CD Co CD 00 0D 09 09 CD CD CD. CD 


uw 


Ww MNS 2 oO oO 
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7 
8 END 
839 ELSE 
300 INSSGL_CTLMSK CINSS$V_WRITABLEJ = FALSE; 
84 QUAL PRESENT = CLISPRESENT( ACCOUNT_DSC 
84 -GUAL_PRESENT THEN INSS$GL_CTLMSK SB attett ACCOUNT] = TRUE; 
ate if -QUAL-PRESENT EQL CLIS_NEGATED THEN INSSGL_CTLMSK CINSSY ACCOUNT] = FALSE; 
846 QUAL PRESENT = CLISPRESENT( XONLY_DSC 
847 IF .QUAL_PRESENT THEN INSSGL_CTLMSK F Nesv EXEONLY] = TRUE: 
oe IF .QUAL-PRESENT EQL CLI$_ NEGATED THEN INSSGL_CTLMSK cINSSY _EXEONLY] = FALSE; 
850 1 INSSOPEN_FILE (); 
83g $ IF .INS$GL_KFEADR EQL 0 
g27 5 STATUS = INSSCREATE () ' recreate it 
855 6 LSE 
856 7 STATUS = INS$_EXISTS; 
857 8 
338 9 IF NOT .STATUS 
59 50 THEN 
860 51 BEGIN 
861 28 IF {STATUS EQL INS$_INTRNLERR 
ge 54 SIGNAL (INS$_FAIL.2. REPLACE DSC, INS$GQ_KFERNS, 
864 55 TSTATUS,1,.1INSSC_INTRNLERRY 
865 36 ELSE 
866 5 BEGIN 


~ 
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INSSREPLACE_VERB 14-Sep-1984 INSTAL. SRCJINSMAIN.B32; 1 
; 867 105 4 SIGNAL (CINS$_FAIL,2,REPLACE_DSC,INS$GQ_KFERNS,.STATUS); 
; 868 19? 4 IF .DELETED 
; 869 1060 4 HEN 
; 870 1061 4 SIGNAL (INS$_DELETED); 
; 871 1906 END; 
3 He 106 END 
: 87 1064 ELS 
3; 874 1065 BEGIN 
3s 875 1066 IF NOT .DELETED 
; 876 1067 
; 1a 1308 SIGNAL (INS$_NOPREV,1,INS$GQ_KFERNS); ! Report qualified success 
; 879 1090 ! 
; 880 1071 ! See if it should be logged 
; 881 1976 ! 
; 88 107 IF CLISPRESENT( LOG_DSC ) 
; 88 1074 THEN 
; 884 1075 4 BEGIN | 
>; 885 1076 4 INSSGL_CTLMSK CINS$V ruld « TRUE; | 
; 886 1077 4 INSSLIST (.INSSGL_KFEAD 
; 887 1078 4 INSSGLOBAL  < (NINSSCL PEFEADR) ; | 
; 888 1079 3 END; 
; 889 1080 2 END; | 
; 890 1081 2 
; «4891 1 § 
; 89 108 RETURN TRUE; 
: 489 1084 1 END; ! routine INSSREPLACE_VERB 


OFFC 00000 ENTRY INSSREPLACE VERB, Save R2,R3,R4,R5,R6,R7.- ; 0888) 
5B 000000006 00 9€ 00002 MOVAB CLISPRESENT. R11 : 
5A 0000" CF H 00009 OVAB INSS$GL_CTLMSK, R10 : 
5E 04 C2 O000E SUBL2 #4, SP : 
gp 000" Et Pe 000rs CALLS. Fy EL iSpaEs ESENT — 
6A 01 01 50 FO 00018 INSV #1, INS$GL_CTLMSK : 
1D 6A 01 £0 0001D BBS “i, TNését CTLMSK,~1$ : 0903 
$e 5 988s) Gi, KAR BS 
0000v CF 9F 900 5 PUSHAB INS$CHECK_PRIV : 
000000006 00 02 F 9 CALLS #2, SYSSCAKRNL : 
58 D 00 9 MOVL RO STATUS : 
08 58 09 BLBS STATUS, 1$ : 0913 
7E 2804 oth i 00 é MOV ZL Ho24e: -(SP) ; 0916 
0000' CF 9F OO0O3E 1$: PUSHAB Fite SP EC DSC : 0921 | 
68 gi FB 0048 CALLS ae PRESENT : | 
6A 01 00 0 FO 0004 INSV INS$GL_CTLMSK : | 
1c AA OF OO4A PUSHAB Nig AN TT. > 0926 | 
0000" CF 9F 0004D PUSHAB SPEC DSC : 
000000006 00 if FB 0091 CALLS re tL GET _VALUE | 
50 DD 00058 PUSHL STATUS : 
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17000 INSSREPLACE_VERB 1 =300 7138 93:38: te YINSTALSR TINSMAIN.B32:1 ° (3 | 
000000006 00 1 FB 9950 CALLS #1, LIBSSIGNAL ; | 
0000v cf 0 EB 64 2$: CALLS #0, INSSOPEN_FILE ; 0927 | 
8 E8 00069 BLBS § OPEN_STATUS, -3$ : 0928 
0000v CF 0 FB 0006¢ CALLS #0, INSSCLOSE_FILE + 0931, 
0284 31 071 BRW 35§ + 0932 
6A 60 8F 2&8 0074 3$: BISB2 #96, INS$GL_CTLMSK + 0939 
04 AA D4 00078 CLRL_ = INS$GL_REPLACE_MSK > 0941 
000000006 99 0 F 007 CALLS #0, INSSDELETE + 0942 
0 DO 00 MOVL RO, STATUS : 
2A E8 000 BLBS STATUS, 4$ + 0943 
9 D4 00088 CLRL DELETED + 0946 
000000006 8F 38 D4 00 A cHPL STATUS, #INS$_INTRNLERR ; 0948 
98 AA DD 00093 PUSHL INSSL_INTRNLERR + 0952 
Qi DD 90096 PUSHL #1 + 0950 
8 DD 9009 PUSHL STATUS : 0952 
08 AA 9F OO09A PUSHAB INS$GQ_KFERNS + 0950 
0000" CF 9F 0009D PUSHAB DELETE-DSC ; 
02 dD OO0A1 PUSHL # : 
00000000* 8F DD 000A3 PUSHL #<INS$_FAIL&-8> : 
000000006 00 07 FB 0009 CALLS #7, LIBSSIGNAL Feit 
59 01 00 00082 4$: MOVL #1, DELETED > 0955 
10 AA D4 000B5 5$: CLRL _‘ INS$GL_KFEADR : 0957 
0000v CF 00 FB 00088 CALLS #0, INSSCLOSE_FILE : 0958 
6A 04 AA DO 000BD MOVL. _INSSGL_REPLACE_MSK, INSS$GL_CTLMSK + 0960 
6A 10 88 000C1 BISB2 #16, INSS$GL_CTCMSK + 0961 
6A 40 8F BA 000C4 BICB2 #64, INS$GL~CTLMSK : 0962 
0000" CF 9F 000C8 PUSHAB PURGE_DSC + 0969 
6B 01 FB OOOCC CALLS #1, CCISPRESENT 3 
56 50 D0 OOOCF MOVL RO. QUAL_PRESENT : 
04 56 Eg 00002 BLBC QUAL PRESENT, 6$ : 0970 
02 AA 08 8A 00005 BICB2 #8, INSSGL_CTLMSK+2 : 
000000006 8F 36 DI 90009 6$: CHL QUAL _PRESERT, #CLIS_NEGATED : 0971 
02 AA 08 88 000E2 BISB2 #8, INSSGL_CTLMSK+2 ; 
0000" CF 9F OO00E6 7$ PUSHAB PROTECT DSC : 0973 
68 01 FB OOOEA CALLS #1, CLISPRESENT ; 
56 50 D0 SO0ED MOVL 0; QUAL_PRESENT ; 
04 56 4 OOFO BLBC QUAL_PRESENT : 0974 
02 AA 01 88 000F 3 BISB2 , INSSGL_CTLMSK+2 : 
000000006 8F 36 D4} O00F7 8$ CMPL QUAL_PRESENT, #CLIS_NEGATED : 0975 
02 AA 01 8A 001 BICB2 #1, INS$SGL_CTLMSK+2 : 
0000" CF 9F 00104 9$ PUSHAB : 0977 
68 1 FB 00108 CALLS #1, CLISPRESENT ; 
56 0 00 00108 MOVL 0, QUAL_PRESENT 3 
04 6 E9 O10E BLBC_  QUAL_PRESENT, 10$ : 0978 
01 AA 20 8 00111 BISB2 #32, INSSGL_CTLMSK+1 ; 
000000006 8F é D4 O19 10S: CMPL QUAL PRESENT, CLI$_NEGATED ; 0979 
01 =A % BA OIE BICB2 #32, INSSGL_CTLMSK+1 ; 
0000' CF 9F 00122 118 PUSHAB HDRRES_DSC > 0981 
8 4 09 158 EAS fle Ghlr PRESENT 
05 6 ; tec BLBC QUAL PRESENT 12$ : 0982 
01 «AA 40 8F 88 OO12F BISB2 #64, ~INSSGL_CTLMSK+1 : 
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INSMAIN 18. $ep-1984 01:44:17 AX-11 Bliss-32 V4.0-742 Page 31. Ih 
v0e-000 INSSREPLACE_VERB yeaeeeah Re Phe: he | PANS TA Skies Tze Vt Oers2 oe 3} vl 
000000006 8F 6 D1 00134 128: = CMPL QyAL. PRESENT, #CLIS_NEGATED ; 0983) : 
0 12 00138 BNEQ 13$ : | ; 
01 AA 40 F gh 1 BICB #64 INSSGL_CTLMSK+1 : ; 
0000" CF 9F 00142 13$ PUSHAB PRIVILEGED BSC : 0985) ; 
B 1 FB 14 CALLS #1, CLISPRESENT ; : 
§ 0 DO 0014 MOVL RO, QUAL PRESENT : ; 
4 E3 14¢ BLBC aU “Pr RESENT 18 : 0986 | F 
01 AA 80 BF 88 O014F BISB2 #12 TSSCL. CTLMSK+1 + 099 ; 
57 1 DO 00154 OVL #1, ALL_PRIVS : 099 ; 
08 00 6E ‘i 00 2C oi t mMovcS #0, (Spy #0, #8, INS$GQ_KFEPRIVS + 0994 ; 
9000" CF OF 0156 14$ PUSHAB PRIV_DSC + 0995 : 
000° CF 9F 0016 PUSHAB PRIVILEGED. D : F 
000000006 00 08 FB 0166 CALLS #2, ISGET. vALUE : : 
49 50 €£ 0016p BLBC RO, i rs : : 
57 D4 00170 CLRL RIVS + 0997 ; 
16 AA OF 00172 PUSHAB tNsSc0- KFEPRIVS + 0998 ; 
0000" CF 9F 0017 PUSHAB PRIV : ; 
000000006 00 2 FB 00179 CALLS #2, PRVSSETPRIV : ; 
52 0 DO 00180 MOVL ; ; ; 
000000006 &F 2 D1 00183 CMPL R2. #PRVS_INVNAM + 1001 
O& 12 0018A BNE : 
0000" CF 9F 0018C PUSHAB PRIV_DSC + 1003 
01 DD 00196 PUSHL F 
000000006 8F DD 00192 PUSHL #INS$_INVPRVNAM : 
15 11 00198 BRB F 
000000006 8F 52 D1 0019A 15$:  CMPL = R2,_#PRVS_NOTUNQ ; 1007 | 
BB 12 001A1 BNEQ : 
0000" CF 9F OO1A3 PUSHAB PRIV_DSC + 1009 
01 DD OO1A7 PUSHL #1 : 
000000006 8F DD 001A9 PUSHL HINSS PRVNOTUNQ : 
000000006 00 03 FB OOIAF 16%: CALLS LIBSSIGNAL : 
013F 31 001B6 BRW 3 + 1010 
08 57 c9 00189 17$:  BLBC A L _PRIVS, 18$ > 1014 
08 FF oF 6E a 00 C 001B¢ MOVCS “(SP), #-1, #8, INS$SGQ_KFEPRIVS > 1015 | 
000000006 8F 56 D1 001C4 18%: CMPL nae Soci, #CLIS_NEGATED : 1017 
05 12 001CB BNEQ 19 : 
01 «AA 80 8F BA O01¢D BICB2 #128, INS$GL_CTLMSK+1 : 
0000" CF 9F 00102 198 PUSHAB SHA ARED_DSC : 1019 
6B o1 FB 00106 CALLS CLISPRESENT : 
5h 0 pO 00109 MOVL RO. QUAL _PRESENT : 
04 6 £9 01D¢ LBC QuAL PRESENT, 20$ : 1020 | 
02 AA ; 8 001DF BISB2 #2, INSSGL CTLMSK+ : 
000000006 8F D1 OO1ES 208: CPL QUAL “PRESENT, -#CLIS_NEGATED : 1021 | 
04 12 OO1EA BNEQ : 
02 AA 02 8A SiEC BICB2 ie. INSSGL -ETLMSK #2, : 
1A 02 AA 01 al IFO 21$: BBC INSSGL- CTLMSK+2, 23$ : 1033 
0000" CF SF OO1F PUSHAB unl DSC : 1026 
B o1 FB O1F9 CALLS CCISPRESENT : 
6 0 DO O01FC MOVL RO: QUAL PRESENT ; 
04 56 EY OOIFE BLBC, QUAL PRESENT, 228 : 1027 | 
02. AA 04 8 00202 BISB2 TNS$GL K+? : 
000000006 8F é DI 0 6 228: CHL a nssou tf a _NEGATED : 1028 | 
02 AA b2 gh O20F 33f: BICB2 INSSGL CTLMSK+2 ; 1031 | 
0000" CF 9F 0215 S48: PUSHAB ACCOUNT. DSC > 1033 | 
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” a -Sep- 355: ° -B32; 
v0e-0 INSSREPLACE_VERB eR aets aR ae eT Gree thet Pha ITC PL Fe oe 35 
68 1 FB 00217 CALLS #1, CLISPRESENT ; ; 
é 0 D 0 1A MOVL RO, QUAL_PRESENT ; : 
04 6 : 1D BLBC_  QUAL_PRESENT : 1034 : 
02 AA 10 88 6 0 BISB2 #16, INSSGL_CTLMSK+2 : : 
000000006 8F 36 Dt 4 25$: cHPL QUAL PRESENT, #CLIS_NEGATED + 1035) ; 
02 AA 10 BA 5 D BICB2 #16, INS$GL_CTLMSK+2 : | : 
0000" CF 9F 1 26$ PUSHAB XONLY_DSC + 1037) ; 
6B 1 FB 3 CALLS #1, CCISPRESENT : ; 
56 0 D MOVL RO, QUAL_PRESENT : : 
04 56 a 0238 BLBC oy L_PRESENT, 27$ : 1038 : 
02 AA g0 8 0 BISB2 #32, INSSGL_CTLMSK+2 : : 
000000006 8F : Dt 0 4 27$: CPL adam #CLIS_NEGATED + 1039 ; 
02 AA 35 8A 00 4B BICB2 #32, INSSGL_CTLMSK+2 3 ‘ 
0000v CF 00 FB 00 4F 28$: CALLS #0, INSSOPEN FILE + 1041 ; 
10 AA D5 00254 TSTL —INSSGL_KFEADR : 1043 : 
OC 12 00257 BNE F : 
000000006 00 00 FB 00259 CALLS #0, INSSCREATE + 1045 : 
88 0 dO 00 60 MOVL RO, STATUS : : 
07 11 0026 BRB 0$ ; : 
58 000000006 ef D0 00265 29$: MOVL  #INSS EXISTS, STATUS + 1047 ; 
52 8 €8 0026C 30$:  BLBS STATUS, 33$ : 1049 : 
000000006 8F 38 D 00 of cHPL TATUS, #INSS_INTRNLERR + 1052 : 
98 AA 0D 00 78 PUSHL INSSL_INTRNLERR + 1055 : 
01 DD 00278 PUSHL #1 + 1054 : 
58 DD 00270 PUSHL STATUS > 1055 ; 
08 AA 9F O027F PUSHAB INS$GQ_KFERNS > 1054 ; 
0000" 62 bb 90586 sgl Sctaltate 
000000006 8F DD 00288 PUSHL #INS$_FAIL : 
000000006 00 07 FB O028E CALLS a LIBS$SIGNAL 
58 DD 00297 31$: | PUSHL STATUS : 1058 
08 AA 9F 00299 PUSHAB INS$GQ_KFERNS : 
0000 5 $b S8Rs —_ustN REPLACE. pS : 
000000006 8F DD 00 Ag PUSHL #INSS FAIL : 
000000006 00 5 FB 002A CALLS #5, LIBS] GNAL : 
46 9 £9 OO2AF BLBC DELETED, 35$ : 1059 
000000006 BF DD 00 Be PUSHL #INS$ DELETED > 1061 
000000006 00 y FB 0 Ba 32$: CALLS Hl, LIBSSIGNAL ae 
12 9 ES 6 C1 33$:  BLBS DELETED, 34$ > 1066 
08 AA SF 002C4 PUSHAB INS$GQ_KFERNS > 1068 
01 OD 002C7 PUSHL @# : 
000000006 8F DD 002¢9 PUSHL #JNS$_NOPREV : 
000000006 00 03 FB O02CF CALLS #3, LIBSSIGNAL : 
0000' CF 9F 00206 34$:  PUSHAB .06_DSC : 1073 
68 o1 FB 0 DA CALLS #1, CLISPRESENT F 
18 0 : DD BLBC : : 
01 «AA 04 88 002E0 BISB2 #4. INSSGL_CTLMSK+1 > 1076 
10 AA DD O02E4 PUSHL INSSGL_KFEADR + 1077 
000000006 00 01 FB O02E7 CALLS #1, INSSL ; 
10 AA DD OOZEE PUSHL INSSGL_KFEADR : 1078 
000000006 00 01 FB O02F1 CALLS #1, INSSGLOBAL : 
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v04-000 INSSREMOVE_VERB 14- et 7 2: ‘98; 8 INSTAL. SRCJINSMAIN.B32; 1 9 83 | 
: 895 1085 1 XSBTTL s INSSREMOVE VERB'; ; 
: 896 19 g 1 GLOBAL ROUTINE INSSREMOVE VERB = : 
ao mi | 
: 899 1089 1! New command interface action routine for REMOVE ; 
: 900 1090 13 “ : 
Bo lie | 
; 302 1938 LOCA ARGLST VECTOR (1) t list for ch de di h 
° : e . or e Ss a t e 
; 905 1098 OPER STAT 5. guemen orc nge mode ispatcner 
Bae Nae | 
; 909 1099 Make delete and remove synonomous actions 3 
: 911 1101 2 INSSGL_CTLMSK CINS$SV_PROCESS) = CLISPRESENT( PROCESS_DSC ); ; 
> 912 1108 IF NOT. INSSGL_CTLMSR CINSS$V_PROCESS : 
; 913 110 THEN 3 
: 33 1108 3 REGIN 
: 916 1106 3 Since INSTALL may be installed with CMKRNL privilege, : 
Wi 1107 3 ! check that user has CMKRNL privilege before allowing : 
: a8 1138 ; ; any operations other than / ROCESS operations. : 
: 920 1110 3 CHK ARGLST (OJ : 
> 921 111 3 TATUS = SCAKRNL SROUTIN = INSSCHECK_PRIV, ARGLST = CMK_ARGLST); ; 
: 922 1118 3 i: NOT .STATUS : 
Bo Beh : 
: 925 1115 4 SIGNAL (SS$_NOCMKRNL) ; ; 
> 926 1116 4 RETURN TRUE? : 
> 927 117 3 END; ; 
Bonne | 
: 930 1120 : INSSGL_CTLMSK CINSSV_FILSPC] = CLISPRESENT( FILE_SPEC_DSC ); ; 
; 336 1166 § Get the file spec from the CLI 2 
: 934 1124 2 REPORT( CLISGET VALUE ( FILE_SPEC_DSC, INS$GQ_FILDSC) ); : 
> 935 1125 OPEN STATUS = IRSSOPEN N_FILE U0); ; 
: 936 1126 IF ‘OPEN. STATUS ; 
: 38s 1158 THEN BEGIN 
: 339 1129 IF. INSSGL_KFEADR NEQ 0 3 
; 941 1131 ei ge STATUS = INSSDELETE () ! delete it : 
> 94 1138 STATUS = INS$_NOKFEFND; : 
tbe 1138 = 
: ang 1138 a ! Not opened, try to remove entry ; 
: 948 1138 INSSCLOSE_FILE (); . ; 
+ 949 11 STATUS = INSSDELETE (); ! INS$DELETE with INSSGL_KFEADR = 0 is a REMOVE 
ORR Hea 
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Her000 INSSREMOVE_VERB 137808 -1 3b Ob: aeihs INSTAL. SRCJINSMAIN.B32; 1 . (13) | v( 
: 952 1143 4 BEGIN 
: 95 1143 4 SIGNAL (. ,STATUS. , INSS$SGQ_KFERNS); 
: 954 1144 4 RETURN TRUE; 
: 955 1145 END; 
: 956 1146 END; 
: 957 114 
: 958 1148 IF NOT .STATUS 
: 959 1149 THEN 
: 960 1150 BEGIN 
> 961 1151 IF .STATUS EQL INS$_INTRNLERR 
: 96¢ 113¢ THEN 
: 96 115 SIGNAL ((CINS$_FAIL AND NOT STS$M_SEVERITY) OR STS$K_WARNING), 
; 964 1134 - 2,REMOVE_DSC, INS$GQ_KFERNS, .STATUS,1,.INSS$L_INTRNLERR) | 
: 966 1156 SIGNAL ((CINS$ FAIL AND NOT STSSM SEVERITY) OR STSSK_WARNING), 
: 967 1157 3 2,REMOVE_DSC, INS$GQ_KFERNS,.STATUS); 
: 968 1158 : END; 
: 969 1159 
: 970 1160 2 RETURN TRUE; 
: 971 1161 1 END; ' routine INSSREMOVE_VERB 
00FC 00000 .ENTRY INSSREMOVE_VERB, Save R2,R3,R4,R5,R6,R7 > 1086 | 
57 000000006 00 9€ 00002 MOVAB INSSDELETE; R7 ; 
56 000000006 00 9€ 00009 MOVAB CLISPRESENT : | 
55 0000' CF 9E 00010 MOVAB FILE_SPEC DSC, RS : 
54 000" CF 9€ 00015 MOVAB INSSGL_CTCMSK. R4 : 
53 000000006 90 9E OO01A MOVAB LIBSSIGNAL, R3 ; 
5E 4 C2 00021 SUBL2 #4, SP : 
00AS C5 SF 00024 PUSHAB PROCESS_DSC + 1101 
66 01 FB 00028 CALLS #1, CLISPRESENT 3 
64 01 01 50 FO 900¢8 INSV RO, #1, #1, INSSGL. CTLMSK : 
1F 64 01 £0 00030 BBS #1, INSSGL_CTLMSK,~1$ + 1102 
6E D4 00034 CLRL § CMK_ARGLST + 1110 
SE DD 00036 PUSHL SP £1111 
0000v CF 9F 00038 PUSHAB INSSCHECK pRIV ; 
000000006 00 02 FB 9005¢ CALLS #2, SSCAKR : 
52 50 dO 0004 MOVL RO srarg ; 
OA 52 8 B0046 BLBS STATUS. % + 1112 
7 2804 BF 3C 00049 MOVZWL #1024 4° =(SP) + 1115 
6 Qi Fe O04 CALLS , LIBSSIGNAL : 
A 11 0005 BRB + 1116 
55 DD 00053 1$ PUSHL 5 > 1120 | 
66 01 FB 00055 CALLS #1, C ISPRESENT : 
64 01 00 50 FO 00058 INSV RO #1, INSSGL_CTLMSK : | 
1c A& 9F 0005D PUSHAB INgSGQ. FILOSC £1126 | 
55 DD 0006 PUSHL 5 ; 
000000006 00 08 FB 006 CALLS #2 ar Gk SET VALUE ; 
05 E8 0006 BLBS 3 
0 DD 0006C PUSHL 3] ; 
63 1 FB O00 CALLS 1, LIBSSIGNA : | 
0000v CF : FB 2$ CALLS TNSSOPEN, FILE > 1125 
16 E i: BLBC opens > 1126 
10 Ad DS 0007 TSTL INSSCE TRFERBR + 1129 
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Marat) INSSPURGE _VERB 13-80-1382 Obie hh INSTAL SRCJINSMAIN.B32¢1 ’ (71) 
> 974 1163 1 ZSBTTL ‘INSSPURGE_VERB'; : 
s 975 1164 1 GLOBAL ROUTINE INSSPURGE_VERB = ‘ 
: 976 1165 1 !446 : 
; 97 1166 1 | : 
: 978 1167 1! New command interface action routine for PURGE ° 
: 979 1168 1! ; 
; 980 1198 1 !ee- ‘ 
> 981 1170 2 BEGIN ; 
2. 1173 5 SOAtwy apGusT : VECTOR C1], ! List for ch de dispatch ; 
3 : ° ! arguement List for change mode dispatcher : 
984 1178 STATUS; . ’ “ 
3; 986 1175 INSSGL_CTLMSK CINSS$SV_ PROCESS] = CLISPRESENT( PROCESS_DSC ); ; 
; «987 1176 IF NOT .INSSGL_CTLMSR CINS$V_PROCESS) ‘ 
; 988 1177 THEN ‘ 
; 4989 1178 BEGIN : 
> 990 1179 : 
; 991 1180 ! Since INSTALL aty be installed with CMKRNL privilege, ° 
: 338 1181 ' check that user has CMKRNL priyitese before allowing : 
3 ear 1186 H any operations other than /PROCESS operations. ‘ 
; 995 1184 ; CMK_ARGLST [0] = 0; ‘ 
: 996 1185 STATUS = SCMKRNL (ROUTIN = INSSCHECK_PRIV, ARGLST = CMK_ARGLST); : 
; 997 1186 3 IF NOT .STATUS ‘ 
: 998 1187 3 THEN ; 
; 999 1188 4 BEGIN . 
; 1000 1189 4 SIGNAL (SS$_NOCMKRNL) ; ‘ 
; 1001 1190 4 RETURN TRUE? | : 
3; 100 1191 3 END; ‘ 
; 100 1138 2 END; : 
3 1004 1193 2 b 
; 1005 1194 2 STATUS = INS$PURGE (); : 
3; 1006 1195 2 IF NOT .STATUS 3 
; 1007 1196 § THEN $ 
3; 1008 1197 SIGNAL (INSS_FAILED, 1, PURGE_DSC, .STATUS); : 
; 1009 1198 2 3 
; 1010 1199 2 RETURN TRUE; ; ; 
; 1011 1200 1 END; ! routine INS$SPURGE_VERB : 
009e 60000 -ENTRY INSSPURGE_VERB, Save R2,R3 : 1164 3 
53 000000006 00 3 0002 MOV LIBSSIGNAC, R 3 3 
5 04 C€ 4d SUBL #4, SP ; 3 
0000" CF 9F 0000C PUSHAB PROCESS. DSC : 1175 : 
000000006 00 9} FR 0010 CALLS #1, CLISPRESENT : 3 
0000" CF 01 01 0 F 0017 INSV - #1, #1, INSSGL_CTLMSK ; : 
1F 0000" CF 01 £0 OOO1E BBS #1, INSSGL_CTLMSK,~1$ : 1176 ; 
ge D4 000 CLRL CMK_ARGLST : 1184 3 
E po 00 g PUSHL Pp 3; 1185 ; 
0000V CF F 000 PUSHAB INSSCHECK_PRIV : 3 
000000006 99 FB 00 4 CALLS 4+ SYSSCAKRNL 3 3 
DO 00 MOVL R STAT 3 é 
OA 5 0036 BLBS STATUS, 1$ > 1186 : 
E 2804 8F 3C 00039 MOVZWL #10244, -(SP) > 1189 3 
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Vo2-000 INSSPURGE _VERB 19 73ee713Re P3:98:4h FINS TALeSRESTASMAtW oBSo—1 aati d 
63 a. CALLS #1, LIBSSIGNAL : | 
° ‘8 ij BRB 2 : 1190 
000000006 99 F 43 1$: CALLS , INSSPURGE + 1194 
D 4A MOVL 4 STA Tys : 
11 E8 0004D BLBS STAT TUS, + 1195 
bo 9039 PUSHL STATUS + 1197) 
0000" CF 9F 0005 PUSHAB PURGE_DSC : 
01 DD 00056 PUSHL #1 : 
000000006 8F DD 00058 PUSHL HINss FAIL : | 
63 04 FB 0005E CALLS #4, LTBSSIGNAL : 
50 01 DO 00061 2$ MOVL a. : 1199 
04 00064 RE > 1200 


; Routine Size: 101 bytes, Routine Base: S$CODE$ + 083D 
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NSMAIN 
- INSSLIST_VERB 


<e 
& 


; 1071 1259 4 
; 1076 1260 

; 107 1261 

; 1074 1 66 

3 1075 126 

; 178 1264 4 
; 107 1265 4 
: 1078 1266 4 
; 1079 1267 4 
: 1080 1268 3 
; 1081 1269 4 
; 1086 1270 4 
: 108 1271 4 
: 1084 1$%¢ 4 
: 1085 1273 4 
; 1086 1274 4 
; 1087 1275 4 
; 1088 1276 4 
: 1089 1277 4 
: 1090 1278 5 
; 1091 1279 5 
; 138 1280 5 
; 109 1281 5 
: 1094 Ieee ? 
; 1095 1283 5 
: 1096 1284 4 
; 1097 1285 3 
: 1098 1286 3 
: 1099 1287 3 
: 1100 1288 2 
; 1101 1289 2 
: 1102 1290 2 
; 1103 1291 1 END; 


— TRUE; 


00 00 00 45 52 55 54 43 55 52 


RETURN TRUE; 
END; 


IF .INS$GL_KFEAD® EQL 0 
THEN 


BEGIN 
SIGNAL (((INSS_FAIL AND NOT STSS$M_SEVERITY) OR STS$K_WARNING), 
aa 2, LIST_DSC, INS$SGO_KFERNS, INS$S_NOKFEFND) ; 


BEGIN 
STATUS =_INSSLIST (. INSSGL_KFEADR); 
IF NOT .STATUS 


HEN 
SIGNAL ((CINSS_FAILED AND NOT STSS$M_SEVERITY) OR STSS$K_WARNING), 
1, LIST_DSC, .STATUS); 


IF .INS$GL_CTLMSK CINS$V_GLOBAL 
THEN 


BEGIN 
STATUS = INSSGLOBAL (.INSSGL_KFEADR); 
4 NOT .STATUS 


HEN 
SIGNAL (((INS$_FAILED AND NOT STSSM_SEVERITY) 
a OR STSSK_WARNING), T, GLOBAL_DSC, .STATUS); 


END; 


INSSCLOSE_FILE (); 
END; 


! routine INSS$LIST_VERB 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


4C 4C 55 46 001DC P.ACE: ASCII \FULL\ 

010E0004 O01E0 P.ACD: .LONG 17694724 

00000009" 001E4 .ADDRESS P.ACE 

54 53 OO1E8 P.ACG: .ASCII \STRUCTURE\<0><0><0> 
010E0009 O01F4 P.ACF: .LONG 17694729 
00000000" 001F8 .ADDRESS P.ACG 
-PSECT $CODE$,NOWRT,2 
01FC 00000 .ENTRY INSSLIST_VERB, Save R2,R3,R4,R5,R6,R7,R8 
58 000000006 99 9E 9002 MOVAB INSSLIST; R8 
57 9000 906 0 9€E 0000 MOVAB INSSGLOBAL, R7 
26 000 06 00 9E 0019 MOVAB LIBSSIGNAL, R6 
5 9 " CF 9E 0001 MOVAB GLOBAL DSC, RS 
54 000000006 00 9€ O01¢ MOVAB CLISPRESENT, R4 
53 009 a: oe 002 MOVAB INSS$GL_CTLMSK, R3 
AS 9F 00028 PUSHAB FILE_SPEC_ 


14 
1b-3¢ =1984 01:44:17 AX=11 Bliss-32 V4.0-742 
ety 7 12:35:38 LINSTAL SRE INSMAIN.B32;1 


(12) 


1203 


1213 


Page 40 


D 14 o Page 41 | 

& See hb: AX-11 Bliss-32_V4.0-742 ge 41, 

1o738p-198e 92:48:38 LNs TAL SReSINGMAIN-BSos1 (12) | 
rata INSSLIST_VERB VSosep | ; 
V04 ~ 028 CALLS #1, CLISPRESENT ; | : 
- g° 39 FO 000 INSV RO, #0, #1, INSSGL_CTLMSK E1214! 
65 oe hae 5 CALLS” #1. CLISPRESENT : | : 
§% 8 EB bogs INSV, ROL #3, #1, INSSGL_CTLMSK#1 + ease! 
o1 a3 of . 8 oF o00c0 PUSHAB P.ACF ; | : 
"a PB boode CALLS #1, CLISPRESENT ; 
01 6% Q FO 900d? INSV RO, #3, #1, INSSGL_CTLMSK+1 E ene 
se Poe a3 FB Scr CALLS #1, CLISPRESENT : | : 
8 3) £6 008 INSV RO, #4, #1, INSSGL_CTLMSK+1 Eee 
ee re a ee walt 
87 8) £8 00se TNSV, ROL #1, wie INSSGL_CTLMSK S tne 
“ : ee a eee : : 
64 Q1 FB 00066 INSY ROL AT, #1. INSSGL_CTLMSK ven : 
63 01 01 29 FO 0006E BLBS INSSGL_CTLMSK, 4$ + 1226 : 
% ie ae 06 FB 00076 CALLS #0, 1 BAL ; 1230 : 
00079 ; : 
He 30 BD aoore PUSHL STAT i 1382 : 
00 i $0080 BRB 2$ : 1237 : 
7E D4 00082 1$:  CLRL_ ss =('SP) 
r gL Fe Rage Eats at sys pal |: 
ie 5) BD 008A PUSHL STATUS. 1340 ; 
E46 AS OF 9008¢ - le a : : 
Q1 0d 0008" 2s: <INS$. FAILED&-8> i ; 
sg 20000000" 8 dD 00091 CALLS fs, LIB$SIGNAL d same 
1c AS. OF O008C a8 PUSHAB pseeg FILDSC : 1253 
98 Ad 9F OOO9F CLISGET_ VALUE : : 
nN 85 EB DOORS BLES: stArus, 58 ~ ; 
50 DD O00AC PUSHL TATU 
66 Oy EB Soak CALLS #0, TNSSOPEN-FILE : 1254 ; 
ree $0 £9 00086 = SBC OPEN STATUS ~ : 1883 
30 10 a3 b 0089 MOVL = INSSGL_KFEADR, RO : : 
™ 13 33 OooBD BNEG 6$ er 
8F DD OOOBF PUSHL  #INS$_NOKFEFND ; ; 
verre BF Oboes PUSHAB INS$GQ_KFERNS | : 
a Ag 3 000¢8 PUSHAB ST_DSC ; : 
2  °. a Be eal 
00000000« g CALLS #5, LIGSSIGNAL : 126 : 
- Sa if 00g BRE BS ; 1395 : 
BY FB OOODA © EALES. te INSSLIST ; 
68 D DD MOVL STAT : 1271 : 
92 BB beer BLBS STATUS, 7$ : 1344 : 
10 ets PUSHL STATUS : 1373 2 
E46 AS OF OOOE PUSHAB LIST_DSC ; : 

01 DD 00068 PUSHL 1 


; Routine Size: 284 bytes, Routine Base: $CODE$ + O8A2 


; 1104 1292 #1 


8$ 


14 
16. “300-1984 01:46 :17 AX-11 Bliss-32 V4.0-742 
v04-000 INSSLIST_VERB 14-Sep-1984 12:35:38 INSTAL. SRCJINSMAIN.B32; 1 
00000000* 8F DD OOCEA PUSHL #<INS$_FAILED&-8> 
66 04 FB yonre CALLS ae LIBSSIGNAL 
1B 01 OA 04 £1 OO00F3 7$: BBC INSSGL CTLMSK+1, 
10 A3 DD 000F8 PUSHL ingen FERDR 
67 01 FB OO00FB CALLS ae INSSGLOBA AL 
52 09 OFE MOVL RO, STA Ty 
OF E8 00101 BLBS STATUS, 8$ 
DD 60104 PUSHL STATUS 
55 DD 001 6 PUSHL R5 
9 DD 001 PUSHL #1 
00000000* 8F DD 0010A PUSHL #<INS$_FAILED&-8> 
4 FB 0011 CALLS #4, LIBSSIGNAL 
0000v cr 0 FB 11 gs CALLS #0, INSS$CLOSE_FILE 
0 1 0D 118 9$ MOVL #1, RO 
04 0011B RET 


Sete Se Fe Se Fe Ge Ge Se Se Ge Se Ge Se Se 


a — — ee — - - + 


F 14 
INSMAIN 16-Sep-1984 AX-11 Bliss-32 V4.0-742 Pa 3 
v04= INSSEXECUTE_IN_EXEC_WITH_R_LOCK 14- ohep- 1382 9}: $8: Y INSTAL. SRC TNSMAL .B32;1 a 
:11 1293 1 XSBTTL ‘INSSEXECUTE_IN EXEC _WITH_R_LOCK’; | : 
; 1109 1294 1 GLOBAL ROUTINE INSSEXECOTE Fin” WEXEC_QITH_R_LOCK (ROUTINE_NAM, PARAM) = : 
ot: a ei a 
: 1110 1297 1: Execute the routine in exec mode | ; 
Me BY: et 
: 148 1300 2 BEGIN ; 
: 1114 1301 LOCAL ; 
; 1116 0 it : VECTOR (3, LONG), : 
: 111 1304 : 
: 1118 1305 2 CME_ARGS = 2; ; 
: 1119 1 06 CME ARGS = .ROUTINE_NAM; ; 
; 1120 4 CME~ARGS = [PARAM; 
: 1182 1308 STATUS = SCMEXEC (ROUTIN = EXECUTE_WITH_R_LOCK, ARGLST = CME_ARGS); 
5 1124 131 RETURN .STATUS; 
> 1125 1312 1 END; ! Routine INSSEXECUTE_IN_EXEC_WITH_R_LOCK 


~-EXTRN SYSSCMEXEC 


0000 00000 -ENTRY 3 
INSSEXECUTE_ INLEXEC_WITH_R_LOCK, Save nothi-; 
n . 
5E 08 C2 00002 SUBL2 "8, SP ; 
02 bd 00005 PUSHL # ; 1305 
04 AE 04 AC 7D 00007 va ROUTINE_NAM, CME_ARGS+4 ; 1306 
5E 0D 0000C PUSHL SP : 1309 
QOO0v CF OF 443 PUSHAB EXECUTE WITH R_LOCK ; 
000000006 00 02 FB 0001 CALLS #2, SYSSCMEXEC™ ; 
04 00019 RET ; 1312 


; Routine Size: 26 bytes, Routine Base: S$CODES + O9BE 


; 1126 1313 1 


a" 
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v04= INSSEXECUTE_IN_KRNL_WITH_W_LOCK 14-Sep-1 INSTAL.SRCJINSMAIN.B32; 1 


: 1128 1314 1 ZSBTTL ‘INSSEXECUTE_IN_KRNL_WITH_W LOCK’; 

; i 2 : 1? 1 GL GLOBAL ROUTINE INSSERECOTE_IA_KRNC_QITH we LOCK (ROUTINE_NAM, PARAM) = 
3; 1131 1 i$ 1 i* 

: 11 § 131 1! Execute the routine in kernel mode 

3 11 131 1! 

3 11 1 1 te<- 

3; 1135 1321 BEGIN 

: 1136 1 § LOCAL 

: 1137 1 CMK_ARGS : VECTOR (3, LONG), 

: 1138 1324 STATUS; 

3; 1139 1325 

: 1140 1 $ CMK_ARGS [0] = 2; 

: 1141 1 CMK-ARGS [1] = .ROUTINE_NAM; 

3 1306 ' 8 CMK “ARGS = PARAM; 

3 ee : , STATUS = SCMKRNL (ROUTIN = EXECUTE_WITH_W_LOCK, ARGLST = CMK_ARGS); 
3: 1146 i ¢ RETURN .STATUS; 

3 1147 133 1 END; ! Routine INSSEXECUTE_IN_KRNL_WITH_W_LOCK 


0000 00000 -ENTRY = 
INSSEXECUTE_IN_KRNL_WITH_W_LOCK, Save nothi-; 
n 
5E 08 C2 00008 UBL a, SP 
02 DD 0000 PUSHL @# 
04 AE 04 AC 7D 00007 MOVa ROUTINE_NAM, CMK_ARGS+4 
5E 0D O0000C PUSHL 
O000OV CF 9F 4 PUSHAB EXECUTE_WITH W_LOCK 
00000000G 00 02 FB 0001 CALLS #2, SYSSCMKRAL™ 
04 00019 RET 


; Routine Size: 26 bytes, Routine Base: S$CODE$S + 0908 


; 1148 1334 


1 
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Wore000 execute_with_r_lock 197808- 132 Obagi te INSTAL.SRCJINSMAIN.B32; 1 ’ (15) | 
: 1150 1335 1 XSBTTL ‘execute with r_lock'; 
: 1181 1 § 1 ROUTINE EXECUTE_QITH_R_COCK (ROUTINE_NAM, PARAM) = 
: 1188 i333 yi | 
; 1 : } i} : ; Execute the routine under the protection of a Known file List READ lock. 
: 1122 1341 1 ine 
: 1157 1 4g BEGIN 
: 1158 134 LOCAL 
1159 134% STATUS: | 
> 1160 1345 
: 1161 P 1 46 STATUS = SENQW ( 
: 116¢ P 134 EFN = EXESC_SYSEFN, 
: 116 P 1348 LKMODE = LCK$K~PRMODE 
> 1164 P 1349 KSB. =_ INSS$G_KF_LKSB, 
> 1165 P 1350 FLAGS = LCKSM~SYST 
: 1166 P 1351 RESNAM = EXESGO_KFE_LCKNAM, 
; 1167 Pp 139¢ PARID. = .EXESGC_SYSID_LOCK, 
: 1168 P 135 ACMODE = PSLS<C_EREC 
3: 1169 1354 § 3 
; 1170 1355 
: 1171 1356 2 IF .STATUS THEN STATUS = .INSS$G_KF_LKSB CLKS$W_STATUS); 
3 1106 1320 $ IF NOT .STATUS THEN RETURN .STATUS; | 
: 1174 1359 2 STATUS = (.ROUTINE_NAM) (.PARAM); 
> 1175 1360 é 
: 1176 1361 SDEQ (LKID = .INS$G_KF_LKSB CLKS$L_LOCKID]); 
> 1177 136@ ‘ 
: 1178 136 RETURN .STATUS; 
: 1179 1364 1 END; ! Routine EXECUTE_WITH_R_LOCK 
-EXTRN SYSSENQW, SYSSDEQ 
0004 00000 EXECUTE_WITH_R_LOCK: 
-WORB ~ Save R2 3: 1336 
7E 01 7D 0000 MOVa so #1, _=(SP) : 1354 
7E 7C 0000 cLra = § F 
7E D4 00007 CLRL © = (SP) F 
000000006 00 DD 00009 PUSHL EXESGL_SYSID_LOCK ; 
000000006 00 9F O000F PUSHAB EXES$GQ-KFE_LCKNAM ; 
10 DD 00015 PUSHL #1 ; 
0000' CF 9F 0017 PUSHAB INS$G_KF_LKSB : 
3 Dd 00018 PUSHL 4&3 : 
000000006 8F DD 9019 PUSHL HEXESC SYSEFN : 
000000006 99 0B FB 000 CALLS #11, SYSSENQW : 
2 50 DO 0002A MOVL RO, STATUS ; 
Al 52 9 002 BLBC STATUS, 1$ : 1356 
2 0000' CF ¢ 99 MOVZWL INS$G_KF_LKSB, STATUS : 
19 2 €9 000 BLBC STATUS, T$ : 1357 | 
08 AC D 38 PUSHL PARAM 3 1559 | 
* % oD ame & 
E i Nive CLRO 20s = §p) > 1361 | 
7E D4 O44 CLRL = = (SP) : | 
0000' CF DD 00046 PUSHL INS$G_KF_LKSB+4 ; 


14 | 
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v04-000 execute with_w_lock 1er8een 138s 93:98:38 | ENsTAL Res inSmAtnca so. 398 16) 


<-_ 


; 118 1366 1 ZSBTTL ‘execute with w_lock'; : 
: 11 1367 1 ROUTINE EXECUTE_QITH_Q_COCK (ROUTINE _NAM, PARAM) = | H 
MB Wwe | i 
3: 1186 1 $ 1! Execute the routine under the protection of a Known file List READ lock, ; 
; 1187 1371 1! and an Install WRITE lock. During the execution of the routine, the : 
3 Bb : } ! known file List lock must be converted to exclusive write. : 
: 1190 1374 1 tee $ 
3 1191 1375 BEGIN 3 
: 1138 137 LOCAL 3 
: 119 137 STATUS; : 
3 1194 1378 : 
3 1195 1379 ! 3 
: 1196 1380 ! Take out INSTALL lock. This Entitles holder to convert the KFE Read lock ; 
3 1197 rt ! to a Write lock Later. 
: 1198 1 8 ! 
3 1199 P 138 STATUS = SENQW ( 
; 1200 P 1384 § EFN = EXESC_SYSEFN, 
: 1201 P 1385 LKMODE = LCKSK_PRMODE, 
3 1202 P 1386 2 KSB. =_INS$G_INS_LKSB, 
: 1203 P 1387 2 FLAGS = LCKSM_ YSTEM, 
3 1204 P 1388 2 RESNAM = INS$Q_LCKNAM, 
: 1205 P 1389 § PARID = .EXESGL SYSID_LOCK, 
: 1206 P 1390 ACMODE = PSLSC_EREC 
3; 1207 1391 2 3 
3; 1208 1336 § 
; 1209 139 IF .STATUS THEN STATUS = .INS$G_INS_LKSB CLK$W_STATUS); 
: 1210 1394 IF NOT .STATUS THEN RETURN .STATUS; 
3 1211 1395 
3 iste 1396 ! 
s lel 1397 ! Take out KFE Read lock under protection of INSTALL lock. 
$ igi8 1398 § } This permits option to later convert lock to a Write lock. 
3 1216 P 1400 2 STATUS = SENQW ( 
3: 1217 P 1401 2 EFN = EXESC_SYSEFN, 
: 1218 P es LKMODE = LCKSK_PRMODE 
> 1219 P 140 KSB =_ INSSG"KF_LKSB, 
3: 1220 P 1404 FLAGS = LCKSM-SYSTEM 
: 1221 P 1405 : ESNAM = EXESGO_KFE_LCKNAM, 
; 1222 P 1406 PARID = .EXESGC SYSID_LOCK, 
3 1223 P 1407 ACMODE = PSLSC_EREC 
> 1226 1408 ); 
3 \$¢? 1409 
3 1226 1410 IF .STATUS THEN STATUS = .INS$G_KF_LKSB CLK$W_STATUS); 
: 1287 1411 IF NOT .STATUS THEN RETURN .STATUS; 
5 1$¢2 1418 STATUS = (.ROUTINE_NAM) (.PARAM); | 
: 1534 1415 $DEQ (LKID = .INS$G_KF_LKSB CLKS$L_LOCKID)); 
; 1238 1416 $DEQ (LKID = .INSS$SG-INS_LKSB CLKS$C_LOCKIDJ5; 
: 1234 1418 2 RETURN .STATUS; | 
: 1235 1419 END; ! Routine EXECUTE_WITH_W_LOCK 
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14 
INSMAIN 18-Sep-1984 01:44:17 VAX#11 BLiss-32 v4.0-742 
04-000 INSSCNVRT_KF LOCK ease ea habe PbiSSik, | FANS TA Sees TRewNtn asses 
: 1338 1421 1 XSBTTL "INSSCNVRT_KF_LOCK’; 
: 1539 1422 1 GLOBAL ROUTINE INSSCNORT KF “Lock (MODE) = 
: 1240 14 1 
: 1823 1258 | ' Convert th ly held KF Lock diff d 
3 ; onver e current e oc to a erent mode. 
1508 1496 1 J 
2 154e 1697 1 ieee 
: 1545 1498 2 BEGIN 
: 1546 1499 5 LOCAL 
: 1247 1430 STATUS; 
: 1548 1431 
? 1549 1432 3 
? 1580 16 
: 1981 143 3 
: 1258 P1435 2 STATUS = SENGW ( 
: 155 P 1436 EFN = EXESC_SYSEFN, 
: 155% P 1437 LKMODE = 
: 1555 P1438 5 KSB. = _INSSG/KF_LKSB, 
: 1556 P1439 FLAGS = LCk VERT. 
: 1557 P 1440 RESNAM = EXESGO_KFE.LCKNAM, 
: 1558 P1461 9 PARID. = .EXESGC SYSID.LOCK, 
: 1559 P 144g 3 ACMODE = PSLSC_EREC 
: 1260 1443 2 ds 
1561 1444 5 
: 126¢ 1445 2 IF .STATUS THEN STATUS = .INSSG_KF_LKSB CLKSU_STATUS]; 
: 1882 1447 3 RETURN .STATUS; 
: 1565 1448 9 
: 1566 14649 1 END: ! Routine INSSCNVRT_KF_LOCK 


0000 00000 .ENTRY INSSCNVRT_KF_LOCK, Save nothing 
7E Qi 70 9008 mova #1, (SP) 
E 7C 0000 CLRQ = (§P) 
43 D4 00007 CLRL = = (SP) 
000000006 00 ppd 00009 PUSHL EXESGL_SYSID_LOCK 
000000006 00 9F OO000F PUSHAB EXE$GQ-KFE_LCKNAM 
02 DD 0015 PUSHL #2 
0000' CF 9F 0001 PUSHAB INS$G_KF_LKSB 
04 AC OD 0001B PUSHL MODE 
000000006 8F DD OO1E PUSHL HEXESC C_SYSEFN 
000000006 00 8 FB 3h CALLS #11, SY SSENQW 
05 59 0028 BLBC = STATUS, 
50 0000' CF 3c O0¢E MOVZWL INS$G_KF i xse, STATUS 
04 00033 1$: RET 


; Routine Size: 52 bytes, Routine Base: S$CODES + OAD8 


1450 


3; 1267 1 
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INSMAIN 16-Sep-1984 01:44:17 AX-11 Bliss-32 V4.0-742 
v04-0 INSSCVT_DIR 14 Sep 1982 93:93:38 INSTAL. SRCJINSMAIN.B32; 1 


69 ZSBTTL ‘INSSCVT tie 
70 GLOBAL ROUTINE INS Cvt_pIR (DESC) : NOVALUE = 
4) BEGIN 
78 FUNCTIONAL DESCRIPTION: 
75 i Convert square brackets in file spec serene to angle brackets. Also, eliminate 
16 middle brackets if they exist because the directory was rooted. 
78 MAP 
286 DESC : REF $BBLOCK; 
81 LOCAL 
see PTR 
e83 PTRE; 
28s ; Convert ‘'C'’ and ‘J’ to ‘'<"' and ‘'>"' 
287 PTR = CHSFIND CH( .DESCCDSCSW_LENGTH], .DESCCDSCSA_POINTER],'C"); 
2 IF NOT CHSFAIC(.PTR) 
2 THEN 
2 BEGIN 
2 CHSWCHAR('<',.PTR); 
2 PTR = CHSFIND_CH(.DESCCDSC$W_LENGTHJ-(..PTR-.DESCCDSCSA_POINTERJ),.PTR,'C"); 
2 IF NOT CHSFAIC(.PTR) 


CHSWCHAR(*<',.PTR); 
END; 


PTR = CHSFIND_CH(.DESCCDSC$W_LENGTH], .DESCCDSCSA_POINTER],'J"); 


eed ed ced ed a ced et ed ee ed ee ee ee ee ed oe ed eh ed ed et ee ed a ed a ed ee ed ee cd ea ce ed ee cc a eh eo ee et ed ee ee ae cc ec eo ec ce eed ec ee 
Soe SS Ree SR Atte pO SN rele en Uae on Re 
C8 NIAU EWR SO OONAUE WN $9 OONOAUE WN | CO OONAUE AN“ OOONOUS WR — 


ee ee ee ee ee ee me ee ee ee ee ee ae ee ce ee ae cee ce ce ee a a a ee ee a ed ed ed od ed 
MUNI BREESE LLL ELLE PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP LP ESE 


| 
: 


Be Oe Be Be Be Se Ge Be Se Se Se Fe Be Se Ge FF Fe Se Se Se Se Ge Se SHS Se Ge FHSS Ss G5 Se oe SESH SH S5 Se SESE SESH Se Se Se Se Se Sees ee te Sse Se Sseeetses 


299 IF NOT CHSFAIC(.PTR) 
300 THEN 
$8) BEGIN 
302 CHSWCHAR('>', .PTR); 
303 PTR = CHSFIND CH(.DESCCDSCSW_LENGTH]-(.PTR-.DESCCDSCSA_POINTERJ),.PTR,'J"); 
304 IF NOT CHSFAIC(.PTR) 
305 THEN 
306 CHSWCHAR('>',.PTR); 
307 ND; 
3 . 
310 ! If the device was rooted, there should be a middle set of brackets in 
313 the string. Compress them out of the string. 
31 
314 PTR = CHSFIND_CH(.DESCCDSC$W_LENGTH], .DESCCDSCSA_POINTER],">"); 
315 IF NOT CHSFAIC(.PTR) 
316 THEN 
317 BEGIN 
318 00 PTR2 = CHSFIND_CH(.DESCCOSC$W_LENGTHJ-(.PTR+1-.DESCCDSCSA_POINTER]),.PTR+1,°<"); 
319 01 IF NOT CHSFAILT.PTR2) 
359 8 THEN 
1 0 BEGIN 
356 04 See eee nee eee ae eee ete seeso eee SA COIN ERD) ».PIAZ+1. .PIRD: 
32 05 DESCCDSC$W_LENGTH] = .DESCCOSCSW_LENGTHIJ-( .PTR2-.PTR+1); 
324 06 END; 
325 07 END; 
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voL-000 INSSCVT_BIR 1-30-19 Moiese PINS TAL SRE Singmatincesos1 Page 82 


51 ? 56 ¢3 00097 SUBL3 PTR, PTR2, R1 : 1505 
4 § 98 MOV IuL (RBS, RO : 
1 £ F SUBL2. R1, R : 
68 1A A SUBWS «=o #1. RO, (RB) : 
04 O00A5 9$: RET 


; 25 


; Routine Size: 166 bytes, Routine Base: $CODES + OBOC 
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15 
INSMAIN ise 1984 01:44:17 AX-11 Bliss-32 V4.0-742 Page 53 I 
V02-000 INSSOPEN_FILE 14-Sep-19 4 ° : 3:48 INSTAL.SRCJINSMAIN.B32;1 " (19) 
ZSBTTL ‘INSSOPEN FILE’; 
GLOBAL ROUTINE INSSOPEN_FILE = 
BEGIN 
OWN 
INSSL_KFEESS : LONG, ! buffer for expanded name string 
INSSL_KFERSS : LONG; ! buffer for resultant name string 


LOCA 


holds Length of version string in RNS 
scratch device name buffer 


L 
VERSION_LENGTH, 
DEVNAM 7 K (65) i 

S$BBLOCK CDS$c$¢_S_BLNI, i device name descriptor 


NAM : BBLOC 


; 1330 1511 1 

; 1531 1 ¢ 1 

3 3 ¢ 1 

3 3 1514 

S| 

31 1 

3; 1337 13 8 

; 1338 1519 

; 1339 15 

; 1340 1521 

; 1341 12 ¢ DEV_DSC : 

3 1 ¢ 1 ITMCST : VECTOR C4,LON 

3 ; ry 12 : PRESET ( : = By iS ASevaL an * 16 + 64, 
: 1345 1526 DESC : SBBLOCK CDSC$C_S_BLNI, ! buffer for result name string desc. 
3 1368 1527 OPEN_STATUS, 

: i 1528 PTR 

71 : 1529 STATUS; 

3; 134 1530 

3 1320 1531 ! 

: 1351 1338 ! Allocate RSS and ESS if not done so yet. 

3 1328 153 ! 

; 135 1534 IF . INSSL_KFEESS EQL 0 

3; 1354 1535 THEN BEGIN 

; 1355 1536 STATUS = LIBSGET_VM(ZREF (NAMSC_MAXRSS) , INSSL_KFEESS); 
3: 1356 1537 IF NOT .STAT 

3; 1357 1538 THEN (SIGNAL(.STATUS); RETURN .STATUS); 
; 1358 1539 2 END; 

; 1359 1540 é IF .INS$L_KFERSS EQL 0 

; 1360 1541 THEN BEGIN 

: 1361 134 STATUS = LIBSGET_VM( REF (NAMSC_MAXRSS) , INSSL_KFERSS); 
: 1362 154 IF NOT .STAT 

3; 1363 1544 THEN (SIGNAL(.STATUS); RETURN .STATUS); 
3; 1364 1545 2 $ 

3; 1365 1546 2 !444 

: 1366 1547 2! 

3 1367 1548 2! £4Prepare to OPEN the file 

3; 1368 1549 $ 

; 1369 1550 lene 

: 1370 1551 

3; 1371 p 1226 SFAB_INIT ( 

: 1372 P 155 FAB = INSSG_KFEFAB, 

3 137 P 1554 NAM = INSSG_KFENAM, 

: 1376 P 1555 SHR = <GET,PUT,UPI> 

> 1375 P 1556 DNM = 'SYS$SYSTEM: EXE" 

> 2 P 1557 FNA = .INS$GQ_FILDSC CDSCSA_POINTER), 

3; 137 & 1328 FNS = .INS$GQ-FILDSC CDOSCSW_LENGTH), 

: 1378 P 155 FOP = <UFO, KFO>, 

3 1379 P 1560 RTV = -1 

: 133° 130) ps 

; 1381 15 ¢ INS$SG_KFEFAB CFABSL_CTX] = 0; ! Zero CTX Longword in the FAB to 
: ! ¢ 1397 ' determine if KFE address is returned by OPEN 
3; 1384 P 1565 SNAM_INIT ( 

; 1385 P 1208 NAM = INS$SG_KFENAM 

> 1386 P 156 ESA = .INSSC_KFEESS, 


> 15 
INSMAIN 16-Sep-1984 01:44:17 AX-11 Bliss-32 V4.0-742 Page 54 
yO2r000 INSSOPEN_F ILE a aees 1 Obi 3gi dg INSTAL. SRCJINSMAIN.B32;1 9° 19) 
7 P ESS = NAMSC_MAXRSS 
P RSA = .INS$SC_KFERSS, 
P RSS = NAMSC_MAXRSS, 
P NOP = <NOCONCEAL> 


IF .INSSGL_CTLMSK CINSS$V we TABLES 
THEN INSSG_KFEFAB CFABSB_FAC] = FABSM_PUT; 


lees 

! 

Open the file 

ol 

OPEN_STATUS = SOPEN (FAB = INS$G_KFEFAB); 


i Disallow the installation of sequentially loaded files 
; such as network and magtape. 


if .OPEN_STATUS 
THEN 
ND 
DEV = INS$SG_KFEFAB CFABSL_DEV] : $BBLOCK; 
IF gpev CDEV$V_NET] OR .DEV CDEV$V_SaD] 
a OPEN_STATUS = INS$_NOLOAD; 


DDD DPI 
SOOSCOCCOOOOO0O0 OOO DOWD OWWOOODON NNN NNO OO 
PURO OONAUSWIN 0 ODN UES WIN 0 ODNA NE WN 9 OD NAME AN) SH CO ODNOUES W000 


ee ee ed ee cee ae ee ee eed ee ee ee ed ee ec a ee ee ee ce a ee a ce ce ea ee a cd ee ee ee ee ee ed 
Fy ot at ooCcooooo WOODOOO0OO0OOC 


ee ee ee ee ee ee eS 


Be Se Be Oe Se Se Se Be Se Se Se Se Ge Sse Ge Fe Se Ge Se FH Ge Se Se Se Se Se Se Ge He Se Se Se Ge Ge Se Se Se Ge Se Se Ge Se Ge Se Se Se Se See Se Se See Se Se Seas 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

41 

41 

41 

41 

44 

41 

ai ; 

41 IF NOT .OPEN_STATUS ! open error 

4 THEN 

t3 3 Fnsse KFEFABCFABSL_CTX] = INSS$_OPENIN 

as 4 ; IF _,CORAAND RODE EGL OLD = 

t5 60 IF (STRSCOMPARE (HEL_DSC, INS$GQ_FILDSC) EQL 0) OR 
$s $8 3 teeta (HELP_DSC, INSS$SGO_FILDSC) EQL 0) 
42 608 4 BEGIN 

4 609 4 SIGNAL (INS$_HELP); 

4 61 END; 

4 61 END 

6 61 ELSE 

$3 ot INSSGL_KFECHAN = .INSSG_KFEFAB CFABSL_STVJ; ! save the channel 
4 61 !+++ 

4 61 } : 

& 61 ! $ave the resultant name string. Extract the device name and convert 
: 3} it into the volume logical name. 

4 6 CHSMOVE (DSC$C_S_BLN,UTILSGETF ILENAME(INSSG_KFEFAB) ,DESC); 
? ? fF OPEN_STATOS 


| 
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INSMAIN 1b-se 1984 01:44:17 AX-11 Bliss-32 V4.0-742 Page 55. 
yo-000 INSSOPEN_FILE 12-808=138e 3:48:48 YINSTAL SRe INSMAIN.B32;1 ’ (19) 
3 1446 1625 VERSION_LENGTH = , Esctpscsu LENGTH] = ( 
3 1445 16 § - INSSG_KFENAM [NAMSB_DEV] + 
; ir | 16 - INS$SG_KFENAM [NAM$B_DIRJ + 
: 144 1628 - INS$G_KFENAM Aten ered + 
: 1448 1629 . INSSG_KFENAM [LNAMS$B"TYPE)) 
3 1449 1630 ELSE | 
: 1450 1631 VERSION_LENGTH = 0; 
3 1451 16 ¢ } 
; 1428 1? ? Extract device name from RNS | 
: 1454 1635 PTR = CHSFIND CH(.DESCCDSCSW_LENGTH], .DESCCDSCSA_POINTER],':'); 
; 1455 16 $ IF NOT CHSFAIC(.PTR) 
3: 1456 16 THEN 
3 1457 1638 BEGIN 
; 1458 1639 DEV_DSCCDSCSA_POINTER] = DEVNAM; ! Setup devnam descriptor 
: 1459 1640 CHSQCHAR(XC'_* DEY DSCCDSCSA POINTER) i !_ Indicate device to GETDVI 
3 1460 1641 3 CHSMOVE (.PTR=.DESCCDSC$A_POINTER .DESCEDSCS$A_POINTER], 
3; 1461 19%6 ; -DEV Bsc tDSCSA POINTER] + 1): ! Move in device name 
3 1086 So DEV_DSCCDSC$W_LENGTH) = .PTR = .DESCCOSCSA_POINTER] + 1; ! Count underscore 
3 1464 1645 ITMLST at = ,INS$GQ ade his ing POINTER]; ! Volume name buffer 
> 1465 1646 ITMLST C2) = INS$GQ_RFERNS DsCS¥_TENGTH 3 ! Place for string length 
> 1466 1647 SYSSGETDVIW(0,0,DEV_DSC,ITMLST.0,0,0,0); ! Get volume name string 
> 1467 1648 | 
3; 1468 1649 3 ' : 
3 ys 34 1939 ; Move remainder of RNS (except version string) behind volume name 
3; 1471 1636 PTR = CHSMOVE(.DESCCDSC$W_LENGTH]-( .PTR-.DESCCDSCSA_POINTER]), 
3 1006 165 ‘ . INS$GQ_RFERNSCOSCSA_POINTERJ+ 
: 147 1654 , INSSGQ_KFERAS DSC$W_LENGTHJ); | 
3 1474 1655 INS$GQ_KFERNSCDSC$W"LENGTH) = .PTR - . INS$GQ_KFERNSCDSC$A_POINTER] - 
3 1475 1656 ; - VERSIOR_LENGTH; 
: 1476 1657 END 
: 1278 1889 i Use RNS string | ion length 
3 7 ! Use string less version leng 
: 1479 1660 3 | | 
3; 1480 1661 ELSE 
> 1481 166@ BEGIN | 
$ 1es6 166 CHSMOVE (.DESCCDSCS$W_LENGTH], .DESCCDSC$A_POINTER), 
3; 148 1664 . INS$GQ-KFERNSCOSCS$A_POINTER)); 
> 1484 1665 INS$GQ_KFERNS CDSCSQ_LENGTH) = .BESCCOSCS$W_LENGTH] - .VERSION_LENGTH; 
3; 1485 1666 END; 
3: 1486 1667 
: 1487 1668 ! 
3 14 1669 ' Convert brackets 
3: 1489 1670 ! 
3 1490 1671 INSSCVT_DIRCINSS$GQ_KFERNS) ; 
3 1491 1676 
; 1636 167 ! 
3 Mea7 167% If open had not succeeded, report the error and return open status. 
5 1495 1676 if NOT .OPEN_STATUS 
: 1628 167 THEN 
3 149 1678 BEGIN 
3: 1498 1679 IF .INS$G_KFEFAB CFABSL_STS) NEQ RMS$_EOF 
3 1499 1999 HEN 
3; 1500 1681 SIGNAL (.INS$G_KFEFAB CFABSL_CTX], 1, INSS$GQ_KFERNS, 


F 15 
INSMAIN 16-Sep-1984 01:44:17 AX-11 Bliss-32 V4.0-742 P 56) 
ten000 INSSOPEN_FILE 1or808- 1382 F3sei dh FNS TASES TRewk tie soe 29° 19) 
1 91 16 : . INS$G_KFEFAB CFABSL_STSJ, .INS$G_KFEFAB CFABSL_STVJ); | 
51 8 1684 INSSGL_KFEADR = 0; ! No KFE to point to in this case 
+ 1504 1685 RETURN .OPEN_STATUS; 
; } 05 1058 , END: 
71 8 1688 2 | Store the KFE address returned by RMS OPEN. | 
; 1508 1689 ! After a replace or create operation, those routines will deposit the 
: 120? 1929 new KFE address in ins$gl_kfeadr in case /LIST was requested | 
3 1311 169¢ INSSGL_KFEADR = .INSSG_KFEFAB CFABSL_CTX); 
; 1218 1694 2 RETURN TRUE; 
: 1514 1695 1 END; ! routine INSSOPEN_FILE 
.PSECT $PLIT$,NOWRT,NOEXE,2 
002C0040 OO1FC P.ACH: .LONG 2883648 : 
00# 00200 .BYTE OC8] : 
00990000 00208 .LONG 0 ; 
45 58 45 2€ 3A 4D 45 54 53 59 53 246 53 59 53 O020C P.ACI: ASCII \SYSSSYSTEM:.EXE\ : 
.PSECT SOWNS,NOEXE,2 | 
00034 INSSL_KFEESS: | 
00038 INS$L_KFERSS: 
-BLKB 4 
$RMS_PTR= INS$G_KFEFAB 
SRMS_PTR= INS$G_KFENAM 
EV= INSSG_KFEFAB+64 
EXTRN SYSSOPEN 
PSECT S$CODE$,NOWRT,2 
OFFC 00000 -ENTRY INSSOPEN FILE, Save R2,R3,R4,R5,R6,R7,R8,~ ; 1512 
5B 0000" CF 9€ 90002 MOVAB INSSL_KFEESS, R11 : 
SA 0000' CF 9E 0000 MOVAB INS$GO_KFERNS, R10 ; 
SE 98 AE 9E 0000C MOV -104(SP) : 
Oc «AE 0000" (CF 10 2 9019 MOVC3 #16, P.ACH, ITMLST : 1525 
68 D 1 TSTL INSS$L_KFEESS > 1534 | 
17. 12 00019 BNEG ='1$ : 
5B DD 00018 PUSHL R11 : 1536 
04 AE FF BF 9A 0001 MOVZBL #255, 4(SP) : 
04 AE 9F 000 2 PUSHAB 4(SP5 ; 
000000006 99 9 FB 600 CALLS 2, LIBSGET_VM ; 
dO 0002C MOVL RO, STATUS F 
1D 52 £9 O002F BLBC STATUS, 2$ > 1537 
04 A D3 99 1$ tstt JNSSL_KFERSS ; 1540 
04 AB OF 09 PUSHAB INS$L_KFERSS : 1542 
04 AE FF 6BF OOA A MOVZBL #255, ~4(SP) F 
04 AE 9F 0003F PUSHAB 4(SP§ ; 


ze 


15 
INSMAIN 1g-se -1984 44:17 AX-11 Bliss-32 V4.0-742 Page 57 
Hen 000 INSSOPEN_F ILE 1278 08-1 3B 04:98: 8 INSTAL SRCJINGMAIN.B32¢1 9° 19) 
000000006 99 F 042 CALLS #2, LIBSGET_VM : 
D 4 MOVL RO, STATUS : 
0D E 4C BLBS STATUS, 3$ : 1543 | 
DD O004F 2% PUSHL STATUS + 1544 
000000006 99 01 FB 091 CALLS #1 LIBSS1GNAL : 
2 i i088 MOVL STATUS, R : | 
0050 «sa&F 00 6 a 00 C 903¢ 3$: MOVCS #0, (SP), #0, #80, SRMS_PTR + 1561) 
0080 CA 9388 F BO 00066 MOVW #20485 SRS _PTR : | 
Oops CA 40020009 BF DO O0060 MOVL #1073872896,-SRMS_PTR+4 ; | 
0¢6 CA 430 F 0 4 MOVW #17154, $RMS_PTR+22 : 
cc <a 1 : 007D MNEGB «#1, SRAs_PTRTG : 
OCF CA 2 008¢ MOVB #2, $RMS~PTR+31 : 
00D8 CA 94 AA 9E 0008 MOVAB  INS$G_KFENAM, $RMS_PTR+40 : 
O0pC CA 18 AA 00 008D MOVL  INS$GO_FILDSC+4, SRMS_PTR+44 : 
00EO CA 0000" CF 3 009 MOVAB P.ACI, $RMS_PTR+4 : 
O0E4 CA 14 AA 90 O009A MOVB  INS$GQ_FILDSC, $RMS_PTR+52 : 
OOES CA OF 90 000A0 MOVB #15, $RMS PTR+ : 
00C8 CA D4 OO0AS INS$G_KFEFAB+24 + 1562 
0060 &8F 00 6E 6 00 2c BOA MOVCS #0, (SP), #0, #96, SRMS_PTR 3: 1572 
94 AA 6002 8F B0 00069 OVW #24578, $RMS_PTR : 
96 AA 01 8 0008 MNEGB #1, $RMS_PTRF2 : 
98 AA 04 AB 00 000BC OVL  INSSL_KFERSS, $RMS_PTR+4 : 
9C AA 10 90 000C1 MOVE #16, SRMS_PTR+8 ; 
9— AA 01 8 000C5 MNEGB #1, $RMS_PTR+10 ; 
AO AA 6B 00 000C9 MOVL INSSL_KFEESS, $RMS_PTR+12 ; 
FA AA 02 a 000CD BBC #2, INSSGL_CTLMSK+2, 4$ : 1574 
00C6 CA 01 90 9000¢ MOVB #1, INS$G_RFEFAB+22 : 1575 
0080 CA 9F 00007 4s: PUSHAB INS$G_KFEFAB + 1583 
000000006 00 01 FB O00DB CALLS #1, SYS$ : 
59 50 DO 000E2 MOVL RO, OPEN STATUS ; 
16 59 £9 OO0ES BLBC OPEN STATUS, 7$ : 1588 
06 OOF1 CA 05 £0 O00E8 BBS #5, Bevel, 5$ : 1594 
07 OOFO CA 05 €1 OOOEE BBC 5, DEV ; 
59 000000006 BF DO O00F4 SS: MOVL § #INS$_NOLOAD, OPEN_STATUS : 1596 
41 59 £8 O00rB é$: BLBS OPEN STATUS, : 1599 
00C8 CA 007B109A_ 8F 00 Ore 7$: MOVL #8065178, INS$G_KFEFAB+24 : 1608 
FC AB D5 0010 TSTL | COMMAND_MODE + 160 
39 12 OO10A BNEQ = 108 ; 
14 AA 9F 0010C PUSHAB INS$GQ_FILDSC ; 1605 | 
0000' CF 9F OO10F PUSHAB HEL_ : 
000000006 00 98 F O13 CALLS #2, STRSCOMPARE ; 
D5 OO11A TSTL 36 : | 
12 1 11¢ BEQL BS : | 
14 AA 9F OO1IE PUSHAB INS$GQ_FILDSC > 1606 | 
0000' CF 9F 4 1 PUSHAB H F 
000000006 00 g FB 00125 CALLS #2, STRSCOMPARE ; 
d5 0012C m)CU«8 : 
15 12 001 F BNEQ si ; 
000000006 BF DD 00130 8s PUSHL #INSS HELP + 1609 
000000006 00 } FB 6 CALLS , LTB$SIGNAL pe 
Fo AA 00BC CA DO 0013F 93: MOVL _—INSSG_KFEFAB+12, INSSGL_KFFCHAN : 168 
0080 cA 9F 00145 10$ PUSHAB INS$G KFEFAB > 1622 | 
000000006 00 1 FB 00149 CALLS #1, UTILSGETFILENAME ; | 


H 15 
INSMAIN 16-Sep-1984 01:44:17 AX-11 Bliss-32 V4.0-742 
tp ee000 INSSOPEN_FILE 19-808-1 382 9} 30:48 INSTAL. SRCJINSMAIN.B32; 1 
04 AE 28 001 MOVC3 #8, (RO), DES 
; 98 9 001 ; LBC. OPEN STATUS, 11 
CD AA 9A 001 MOVZBL INS$G_KFENAM+57, RO 
1 CE AA 9A 001 MOVZBL INSSG-KFENAM+58, R1 
0 51 CO 0016 ADDL2 1, RO 
1 CF AA 9A 0016 MOV ZBL INS$G_KFENAM+59, R1 
50 51 CO 0016 ADDL2 R1, RO 
31 DO «= AA.sO9A 006A MOVZBL INS$G_KFENAM+60, R1 
0 51 ¢O 16e ADDL2 1, RO 
58 06 A 01 MOVZWL Desc. VERSION_LENGTH 
58 5 f 0175 SUBL2 RO, VERSION_LENGTH 
Q 0178 BRB 12§ 
4 0017A 11$:  — CLRL VERSION LENGTH 
08 BE 04 AE 3a 3A 0017C 12$: LOCC #58, DESC, aDESC+4 
02 12 00182 BNEQ 13$ 
1 D4 00184 CLRL RT 
57 51 09 0186 13$ MOVL 1, PTR 
59 13 00189 BEQL  14$ 
20 AE 24 AE 9E 00188 MOVAB DEVNAM, DEV_DSC+4 
50 20 AE dO 00190 MOVL  DEV_DSC+4, RO 
60 SF BF «90 00194 MOVE. #957 (RO) 
56 57 08 AE C3 00198 SUBL3 DESC+4, PTR, R 
01 AO 08 &BE 56 28 0019D MOVC3 6, aDESC+4, 1(RO) 
1C AE 56 01 Al O01A3 ADDW3 #1. R6, DEV.D 
10 AE 04 AA DO 001A8 OVL  INS$GQ’KFERNS+4, ITMLST+4 
14 AE 6A 9E OO1AD MOVAB INSS$GQ"KFERNS, ITMLST+8 
7E 7C 001B1 CLRQ  =(SP) 
7E 7C 001B3 LRQ = =(SP) 
1¢ AE OF 001B5 PUSHAB ITMLST 
30 AE 9F 00188 PUSHAB DEV_DSC 
7E 7C 001BB Q (SP) 
000000006 00 08 FB 001BD CALLS #8, SYS$GETDVIW 
51 04 AE 3C 001¢4 MOVZWL DESC, R1 
51 56 C2 001C8 SUBL 2 
50 6A 3C 001CB MOVZWL INSS$GQ_KFERNS, RO 
50 04 AA CO OO1CE ADDL2  INS$GQ7KFERNS+4, RO 
60 67 51 28 001D2 MOVC3 R1, (PTR), (RO) 
57 53 DO 00106 MOVL. R3, PTR 
51 57 04 AA C3 00109 SUBL3 INS$GQ_KFERNS+4, PTR, R1 
6A 51 58 A OO1DE SUBW3 VERSION LENGTH, R1, INS$GQ_KFERNS 
0c 11 OO1E BRB 15$ 
04 BA 08 BE 04 AE 28 OO1E4 148: movcs DESC, @DESC+4, @INS$SGQ_KFERNS+4 
6A 04 AE 58 A3 OO1EB SUBW3 VERSION_LENGTH, DESC, INS$GQ_KFERNS 
SA DD OIF 15$:  PUSHL R10 
FD63—sCF 01 FB 1F CALLS #1, INSSCVT_DIR 
26 59 €8 OO1F BLBS § OPEN STATUS, 17$ 
0001827A = BF 00B8 CA D1 OO1FA CMPL INSSG_KFEF A+B, #98938 
14 1300 03 EQL 6$ 
7E 00B8 CA 7D 0020 ova INSSG_KFEFAB#8, -(SP) 
SA DD 0 OA PUSHL 1 
01 oD C PUSHL #1 
00c8 CA DD 0020 PUSHL INS$G_KFEFAB+24 
000000006 00 05 FB 0021 CALLS #5, LYBSSIGNAL 
08 AA D4 0 19 16$:  CLRL  INSSGL_KFEADR 
50 59 Bd 6 IC HOVE OPEN_STATUS, RO 
08 AA 00c8 CA DO 00220 178 MOVL § INSSG_KFEFAB+24, INSSGL_KFEADR 
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; Routine Size: 554 bytes, 


3 1515 1696 1 


INSSOPEN_FILE 


ee 


: DT Be 88888 


Routine Base: S$CODE$ + 0BB2 


MOVL 
RET 


“VOR 93:95:48 


#1, RO 
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INSMAIN 1b-Sep-1984 OF ger? AX-11 Bliss-32 V4.0-742 
v04- INSSCLOSE_FILE 14-Sep-1984 12:35:38 INSTAL. SRCJINSMAIN.B32;1 
: 1517 1697 1 ZSBITL ‘INSSCLOSE FILE’; 
; 1518 1698 1 GLOBAL ROUTINE INSSCLOSE_FILE = 
3 : 1 1993 BEGIN 
; 1381 1701 Be sure to clean up any opened file by deassigning the channel 
3 13 § 1708 IF .INSSGL_KFECHAN NEQ 0 
: 1824 1704 THEN 
; 1525 1705 BEGIN 
: 1526 1706 REPORT (SDASSGN ( CHAN = .INSSGL_KFECHAN )); 
: 1527 1707 INSSGL_KFECHAN = 0; 
: 1528 1708 END; 
3; 1529 1709 
; 1530 1710 RETURN TRUE; 
; 1531 1711 1 END; ! Routine INSS$CLOSE_FILE 
-EXTRN SYSS$DASSGN 
0000 00000 ENTRY INSSCLOSE_ FILE, Save nothing 
50 0000" CF 9 00006 MOVL INSSGL_KFECHAN, RO 
19 13 0000 BEQL 2s 
50 DD 00009 PUSHL RO 
00000000G 00 01 FB 0000B CALLS #1, SYSS$DASSGN 
09 50 €8 Bois BLBS STATUS, 1$ 
50 0D 0001 PUSHL TATUS 
00000000G 00 01 FB 00017 CALLS #1, LIBSSIGNAL 
0000" CF D4 9001 1$ CLRL INSSGL_KFECHAN 
50 01 pO 0 os 2$ MOVL #1, RO 
04 000 RET 


; Routine Size: 38 bytes, Routine Base: S$CODE$ + ODDC 


; 1532 1712 «#1 


Page 285 
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K 15 
NSMAIN 19-300" 1 28% 01:44:17 AX-11 Bliss-32 V4.0-742 Page A 
04-000 INSSCHECK_PRIV 14-Sep-1984 12:35:38 INSTAL.SRCJINSMAIN.B32;1 (21) | 
! : a } ZSBTTL ‘INSSCHECK_PRIV'; | 
1 § 1715 1 GLOBAL ROUTINE INSSCHECK_PRIV = 
1 at 1 444 
1538 wi? 1! 
1539 1718 1°! FUNCTIONAL DESCRIPTION: 
1540 1719 1! Check that user has CMKRNL privilege. 
1541 1720 1! 
1366 1721 1°! INPUT: 
154 17 ¢ 1! None 
1544 17 7} 
1545 17246 1! OUTPUT: 
1546 to: EB None 
1547 1726 1! 
1548 Vist 1 ! ROUTINE VALUE: . 
1549 1728 1! ss$_nocmkrnl If user does not have CMKRNL privilege 
1550 1768 @ low bit set If user has CMKRNL privilege 
1551 1730 1 !<-- 
1326 1731 § BEGIN 
155 1736 IF NOT .CTL$GQ_PROCPRIV CPRVSV_CMKRNL) 
1554 17 2T 
1555 1734 RETURN SS$_NOCMKRNL 
1556 1735 E 
1557 1736 RETURN TRUE; 
1558 1737 1 END; ! routine INS$SCHECK_PRIV 
0000 00000 -ENTRY INSSCHECK_PRIV, Save nothing : 
06 00000000G 00 58 00002 BLBS CTL$GQ_PROCPRIV, 1$ : 
50 2804 8F 3C 00009 MOVZWL #10244, RO 3 
04 OO00E RET 3 
50 01 DO OOOOF 1$: MOVL #1, RO 3 
04 00012 RET 3 1737 


Routine Size: 19 bytes, Routine Base: SCODES + 0E02 
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INSMAIN 1b-$¢ -1984 01:44:17 AX-11 Bliss-32 V4.0-742 Page 62 

yOr~000 INS_HANDLER 1er8ep- 138s Fb ssi d8 | PINS TAL Shes TASmAtn Ce soc 9 355 
1 XSBTTL "INS HANDLER’ 

} ROUTINE INS_HANDLER (SIGARGS, MECHARGS) = 


_ 
Ww 
oO 


AAO 


| 
This routine is a condition handler called when ever a | 
; SIGNAL is done by INSTALL. It merely remembers the 
: most severe error for an exit status. 
SIGARGS : REF SBBLOCK, 
4 
3 
3 
2 
2 
2 
é 
1 


AP 
MECHARGS : REF $BBLOCK; 


BIND 
SIGNAME = SIGARGS CCHFSL_SIG_NAME] : $BBLOCK; 'Name of signal 


IF NOT .SIGNAME AND 'If its an error signal 

((.SIGNAME CSTSSV_SEVERITY] GEQU ! and severity is worse than it was 
- INSSEXIT STATUS CSTSS$V_SEVERITY]) OR 

- INSSEXIT_STATUS CSTS$V_SEVERITYJ) ! or we haven't had any errors 
INSSEXIT_STATUS = .SIGNAME; ! then remember it for exiting 


RETURN SS$_RESIGNAL 
END; 


SeSe ee S86 es Se Se Se SF Se Se Se Se Se Se Se eeSse Se Fe See Se seus 
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!Of ins_handler 


0004 00000 INS_HANDLER: 
«WORD 


Save R2 3: 1741 
52 0000' CF 9E 00002 MOVAB INSS$EXIT_STATUS, R2 ; 
50 04 AC 04 Ci 00007 ADDL3 #4, SIGARGS, RO + 1753 
12 60 £8 0000C BLBS (RO), 2$ : 1755 
51 62 03 00 EF OOOOF EXTZV #0, #3, INSSEXIT_STATUS, R1 : 1757 
51 60 03 00 ED 00014 CMPZ7V #0. #3, (RO), RI : 
03 1& 00019 BGEQU 1$ ; 
03 62 €9 0001B BLBC =—INSSEXIT_STATUS, 2$ : 1758 
62 60 bo OQOO1E 1$ MOV (RO) INSSEXIT_STATUS : 1760 
50 0918 8F 3C 00021 2$ MOVZWL #2328, RO : 1762 
04 00026 RET + 1763 
3; Routine Size: 39 bytes, Routine Base: $CODE$ + 0E15 
3; 1586 1764 1 
: 1587 1765 1 END ' Module INSMAIN 
> 1588 1766 0 ELUDOM 


~-EXTRN LIBSSIGNAL 


INSMAIN Sep-1984 44:17 AX-11 Bliss-32 V4.0-742 
ten 080 INS_HANDLER 16- Sen 1984 ON gei ye INSTAL.SRCJINSMAIN.B32;1 
: Name Bytes Attributes 

: SPLITS 3 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SGLOBALS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SOWNS NOVEC, WR RD ,NOEX *N HR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SCODES 36 NOVEC, *NOWRT, RD EXE .NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

Ms Pee ee es ie Sl se ee- eae Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped ime 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 130 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: INSMAIN/OBJ=OBJ$:INSMAIN MSRC$: INSMAIN/UPDATE=(ENHS: INSMAIN) 


; Size: 3644 code + 987 data bytes 


Elapsed Time: a 19.0 
Lines/CPU Min: 1809 
Lexemes/CPU-Min: 22646 
peneey Used: 308 pages 
Compilation Complete 
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